Dim dtb As New DataTableBuilder("收入合同关联记录数")
dtb.AddDef("关联信息", Gettype(String), 32)
dtb.AddDef("记录数", Gettype(Integer))
Dim dt As DataTable = dtb.Build(True)
Dim dr As DataRow = dt.AddNew()
dr("关联信息") = "补充合同或决算数据"
dr("记录数") = Tables("工程合同基础数据").Current("补充合同或决算记录数")
dr = Tables("收入合同关联记录数").AddNew()
dr("关联信息") = "增值税fa piao开piao登记"
dr("记录数") = Tables("工程合同基础数据").Current("开piao记录数")
dr =Tables("收入合同关联记录数").AddNew()
dr("关联信息") = "支出合同基础数据"
dr("记录数") = Tables("工程合同基础数据").Current("支出合同数")
dr =Tables("收入合同关联记录数").AddNew()
dr("关联信息") = "应收款收入数据"
dr("记录数") = Tables("工程合同基础数据").Current("应收款记录数")
Dim t As Table = Tables("关联主合同记录数_Table1")
t.DataSource = dt
t.DefaultRowHeight = 50
t.Cols("关联信息").PrintWidth = 60
t.Cols("记录数").PrintWidth = 20
加好友 
发短信
Post By：2017/7/8 14:10:00 [显示全部帖子]
