下面代码的作用是把代码所在表的记录写到另一张同列名的表上，当代码所在表的 有个 日期 列为空时，写到另一张表的 日期 列时就会报错，只要把这个日期列填上日期就正常了，请问如何解决，谢谢老师！
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.4.19.8
错误所在事件：
详细错误信息：
对于造型说明无效的字符值
以下是代码：
If e.DataCol.Name = "审核" Then
If e.NewValue = True Then
If e.DataRow("应付日期1") <> Nothing Then
Dim dr As DataRow = _dt应付日期明细.AddNew
dr("ID") = e.DataRow("_Identify")
dr("应付描述") = e.DataRow("应付描述1")
dr("应付日期") = e.DataRow("应付日期1")
dr("应付金额") = e.DataRow("应付金额1")
For Each dc As DataCol In _dt应付日期明细.DataCols
If e.DataTable.DataCols.Contains(dc.Name) Then
dr(dc.Name) = e.DataRow(dc.Name)
End If
Next
dr.Save
End If
........
加好友 
发短信
Post By：2021/5/7 11:28:00 [只看该作者]
