动态增加表，能不能增加表达式啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Name As String = e.Form.Controls("工程数量分表名称").Value
If Name = "" Then
    MessageBox.Show("分表名称不能为空!")
    Return
End If
For Each dt As DataTable In DataTables
    If dt.Name.Contains(Name) Then
        MessageBox.Show(Name & "分表已经存在,不能创建!")
        Return
    End If
Next
Dim Builder As New ADOXBuilder
Dim fb As ADOXTable
Builder.Open()
fb = Builder.NewTable(name) '创建表
With fb
    .AddColumn("分部工程" ,ADOXType.String, 16)
    .AddColumn("分项工程" ,ADOXType.String, 16)
    .AddColumn("施工部位_主部位" ,ADOXType.String, 16)
    .AddColumn("施工部位_辅部位" ,ADOXType.String, 16)
    .AddColumn("细目号" ,ADOXType.String, 16)
    .AddColumn("材料类别" ,ADOXType.String, 16)
    .AddColumn("材料规格" ,ADOXType.String, 16)
    .AddColumn("单位" ,ADOXType.String, 16)
    .AddColumn("设计数量" ,ADOXType.Single)
    .AddColumn("变更数量" ,ADOXType.Single)
    .AddColumn("有效数量" ,ADOXType.Single)'我希望“有效数量”=“设计数量”+“变更数量” 应该怎么写啊？
End With
Builder.AddTable(fb) '增加表
Builder.Close()
syscmd.Project.Open(ProjectFile) '打开表
MainTable = Tables(Name)
forms("创建工程数量分表").close()

主题：动态增加表，能不能增加表达式啊？