新增行后输入施工日期就出错, 下面红色代码出错,
Dim dr As DataRow = e.DataRow
Select e.DataCol.Name
Case "每日摘要"
Dim fil As String = "施工日期 = #" & dr("施工日期") & "# And 附件编号 = '" & dr("附件编号") & "'"
Dim fdr As DataRow = DataTables("每日工作").Find(fil)
If fdr Is Nothing Then
Dim ndr As DataRow = DataTables("每日工作").AddNew()
For Each dc As DataCol In DataTables("每日工作").DataCols
If e.DataTable.DataCols.Contains(dc.Name) Then
ndr(dc.Name) = dr(dc.Name)
End If
Next
End If
End Select
'msgbox(11)
Select e.DataCol.Name
Case "附件编号","施工日期","每日摘要"
Dim nm As String = IIF(e.DataCol.Name = "附件编号",e.OldValue,e.DataRow("附件编号"))
Dim dnm As String = IIF(e.DataCol.Name = "施工日期",e.OldValue,e.DataRow("施工日期"))
Dim fil As String = "施工日期 = # " & dnm & " # And 附件编号 = '" & nm & "'"
Dim fdr As DataRow = DataTables("每日工作").Find(fil)
If fdr IsNot Nothing Then
For Each dc As DataCol In DataTables("每日工作").DataCols
If e.DataTable.DataCols.Contains(dc.Name) Then
fdr(dc.Name) = dr(dc.Name)
End If
Next
Else
Return
End If
End Select
错误提示:
.NET Framework 版本:2.0.50727.5477
Foxtable 版本:2018.9.9.1
错误所在事件:表,监理通知单,DataColChanged
详细错误信息:
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。
[此贴子已经被作者于2018/11/23 13:36:50编辑过]