Dim dtb As New DataTableBuilder("大板盘点表")
dtb.AddDef("品种", Gettype(String), 32)
dtb.AddDef("编号", Gettype(String), 255)
dtb.AddDef("片数", Gettype(Integer))
dtb.AddDef("区域", Gettype(String),64)
dtb.AddDef("备注", Gettype(String),255)
dtb.Build()
MainTable= Tables("大板盘点表")
Dim f As New Filler
f.SourceTable = DataTables("大板入库") \'指定数据来源
f.SourceCols = "品种,编号,片数,区域,备注" \'指定数据来源列
f.DataTable = DataTables("大板盘点表") \'指定数据接收表
f.DataCols = "品种,编号,片数,区域,备注" \'指定数据接收列
f.fill() \'填充数据
With Tables("大板盘点表")
.MergeMode = MergeModeEnum.free \'标准合并模式
    .MergeCols.Clear() \'清除原来的合并列
    .MergeCols.Add("品种")
    .MergeSort = "品种" \'设置合并模式下的排序方式
    .AllowMerge = True \'启用合并模式
End With

请问这段代码有什么问题么？点击就报错
此主题相关图片如下：未命名.jpg

自己解决了