'生成一个临时表
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("工地名称", Gettype(String), 16)
dtb.AddDef("机械名称", Gettype(String), 16)
dtb.AddDef("扣加油款", Gettype(Integer))
dtb.AddDef("已付金额", Gettype(Integer))
dtb.AddDef("付款时间", Gettype(Date))
dtb.AddDef("施工单位", Gettype(String),16)
dtb.AddDef("收据号", Gettype(String),16)
dtb.AddDef("去零头", Gettype(Integer))
dtb.AddDef("平板", Gettype(Integer))
dtb.AddDef("施工装车金额", Gettype(Integer))
dtb.AddDef("核定日期", Gettype(Date)) ***********
dtb.AddDef("施工计量金额", Gettype(Integer))
dtb.Build()
Dim f2 As New Filler
f2.Distinct=False
f2.SourceTable = DataTables("统计表1") '指定数据来源
f2.DataTable = DataTables("统计") '指定数据接收表
f2.Fill() '填充数据
Dim sjh As String
For Each dr1 As DataRow In DataTables("统计").Select("")
sjh = dr1("收据号")
Dim dr2 As DataRow = DataTables("土方工程汇总统计表") .Find("收据号 = '" & sjh & "'")
If dr2 IsNot Nothing Then
dr1("工地名称") = dr2("工地名称")
dr1("机械名称")=dr2("机械名称")
dr1("施工单位")= dr2("施工单位")
dr1("核定日期")=dr2("核定日期") *****'此句代码出现问题，并出现死机现象，然后将上述第12条打“*”号代码“核定日期”，改为“日期”，
将本句代码改为dr1("日期")=dr2("核定日期")后，之后没问题了
dr1("付款时间")=dr2("付款时间") *****‘此句代码，也是日期型，将上句代码注释后，此代码执行完成，但到了下面打'*"号代码时出现上述一样反映。（见下面描述）
End If
Dim dr3 As DataRow = DataTables("施工统计表") .Find("收据号 = '" & sjh & "'")
If dr3 IsNot Nothing Then
dr1("日期")=dr3("核定日期")
End If
Dim dr4 As DataRow = DataTables("付款明细表") .Find("收据号 = '" & sjh & "'")
If dr4 IsNot Nothing Then
dr1("付款日")=dr4("付款时间")
End If
Next
DataTables("土方工程汇总统计表").DataRows.Clear
Dim f3 As New Filler
f3.Distinct=False
f3.SourceTable = DataTables("统计") '指定数据来源
f3.SourceCols = "收据号,施工单位,日期,工地名称,机械名称,施工计量金额,施工装车金额,平板,去零头,扣加油款,付款日,已付金额" '指定数据来源列 ************此句代码又出现死机，将 付款时间，改为4个字付款日期，还是死机，改为3个字的付款日，正常了。
f3.DataTable = DataTables("土方工程汇总统计表") '指定数据接收表
f3.DataCols = "收据号,施工单位,核定日期,工地名称,机械名称,施工计量金额,施工装车金额,平板,去零头,扣加油款,付款时间,已付金额" '指定数据接收列
f3.Fill() '填充数据
加好友 
发短信
Post By：2017/6/4 23:45:00 [显示全部帖子]
