BUG收集-保存时间字段，出现死机，不知是否是BUG?Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 保存时间字段，出现死机，不知是否是BUG?

\'生成一个临时表

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

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() \'填充数据