- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助－单格合并 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194275)
-- 发布时间：2024/11/24 9:29:00
-- 求助－单格合并
老师，我用以下代新建表一，然后我又如何用代码生成表二呢，就是有些单元格要全并到一起
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