共1 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求助－单格合并
1楼
lovetoday 发表于：2024/11/24 9:29:00老师，我用以下代新建表一，然后我又如何用代码生成表二呢，就是有些单元格要全并到一起
此主题相关图片如下：任务单0.png
此主题相关图片如下：任务单1.png
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
共1 条记录, 每页显示 10 条, 页签:
[1]