Dim dtb As New DataTableBuilder("工序进度查询表")
dtb.AddDef("序号", GetType(String), 4)
dtb.AddDef("清单条码编码", GetType(String), 20)
dtb.AddDef("项目号", GetType(String), 50)
dtb.AddDef("所属装配", GetType(String), 26)
dtb.AddDef("产品类型", GetType(String), 26)
dtb.AddDef("产品名称", GetType(String), 36)
dtb.AddDef("产品图号", GetType(String), 46)
dtb.AddDef("变压器型号", GetType(String), 50)
dtb.AddDef("项号", GetType(String), 26)
dtb.AddDef("台数", GetType(Short))
dtb.AddDef("件每台", GetType(Short))
dtb.AddDef("数量", GetType(Short))
dtb.AddDef("重量", GetType(Double))
dtb.AddDef("上一工序", GetType(String), 20)
dtb.AddDef("结束时间", GetType(Date))
dtb.Build()