Dim dtb As New DataTableBuilder("拨付计划") dtb.AddDef("单位代码", GetType(String), 32) dtb.AddDef("所属系统", GetType(String), 32) dtb.AddDef("上月人数", GetType(Integer)) dtb.AddDef("上月应发", GetType(Double)) dtb.AddDef("当月人数", GetType(Integer)) dtb.AddDef("当月应发", GetType(Double)) dtb.adddef("人数减", GetType(Integer)) dtb.adddef("人数增", GetType(Integer)) dtb.adddef("金额减", GetType(Double)) dtb.adddef("金额增", GetType(Double)) dtb.adddef("丧葬费", GetType(Double)) dtb.adddef("合计", GetType(Double)) dtb.TableVisible = True dtb.Build() MainTable= Tables("拨付计划")
|