求助－单格合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我用以下代新建表一，然后我又如何用代码生成表二呢，就是有些单元格要全并到一起

Dim dtb As New DataTableBuilder("统计表1")

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_1", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_2", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_3", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_4", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_5", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_6", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_7", GetType(String), 256)

dtb.AddDef("大理白塔混凝土有限责任公司_预拌混凝土供货单_8", GetType(String), 256)

Tables("工作总表_Table171").DataSource = dtb.BuildDataSource()

Tables("工作总表_Table171").AllowEdit = True

Tables("工作总表_Table171").AddNew(11)

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_1").width = 57

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_2").width = 80

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_3").width = 57

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_4").width = 80

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_5").width = 57

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_6").width = 80

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_7").width = 57

Tables("工作总表_Table171").Cols("大理白塔混凝土有限责任公司_预拌混凝土供货单_8").width = 80

Tables("工作总表_Table171").rows(0)(0) = "生产日期"

Tables("工作总表_Table171").rows(1)(0) = "工程名称"

Tables("工作总表_Table171").rows(2)(0) = "施工单位"

Tables("工作总表_Table171").rows(3)(0) = "施工部位"

Tables("工作总表_Table171").rows(4)(0) = "施工联系"

Tables("工作总表_Table171").rows(4)(4) = "施工电话"

Tables("工作总表_Table171").rows(5)(0) = "强度等级"

Tables("工作总表_Table171").rows(5)(2) = "浇筑方式"

Tables("工作总表_Table171").rows(5)(4) = "坍落度"

Tables("工作总表_Table171").rows(5)(6) = "到场时间"

Tables("工作总表_Table171").rows(6)(0) = "总调度"

Tables("工作总表_Table171").rows(6)(2) = "电话"

Tables("工作总表_Table171").rows(6)(4) = "坐班调度"

Tables("工作总表_Table171").rows(6)(6) = "电话"

Tables("工作总表_Table171").rows(7)(0) = "操作员"

Tables("工作总表_Table171").rows(7)(2) = "生产线"

Tables("工作总表_Table171").rows(7)(4) = "卸料时间"

Tables("工作总表_Table171").rows(7)(6) = "卸完时间"

Tables("工作总表_Table171").rows(8)(0) = "驾驶员"

Tables("工作总表_Table171").rows(8)(2) = "运输车号"

Tables("工作总表_Table171").rows(8)(4) = "本车方量"

Tables("工作总表_Table171").rows(8)(6) = "累计方量"

Tables("工作总表_Table171").rows(9)(0) = "签收员"

Tables("工作总表_Table171").rows(9)(4) = "备注"

Tables("工作总表_Table171").rows(10)(0) = "备注"

表一

此主题相关图片如下：任务单0.png

表二

此主题相关图片如下：任务单1.png

主题：求助－单格合并