需求：系统编号表和项目信息表，我在项目信息表DataColChanged事件中写入下面代码出错，因为有时候项目信息表中不包含{"项目编号","标段编号","单位工程编号"}中任何一个或二个列名或全部列名，如果有就提取值：因为最后我想把这代码写在全局表事件中去。
Case "项目系统编号"
Dim fdr As DataRow = DataTables("系统编号").Find("项目系统编号 = '" & dr("项目系统编号") & "'")
Dim nms() As String = {"项目编号","标段编号","单位工程编号"}
For Each nm As String In nms
For Each dc As DataCol In e.DataTable.DataCols
If dc.Name.Contains(nm) Then
If dr.IsNull("项目系统编号") Then
dr(nm) = Nothing
Else
If fdr IsNot Nothing Then
dr(nm) = fdr(nm)
End If
End If
End If
Next
Next
此主题相关图片如下：33333.png
[此贴子已经被作者于2018/11/7 4:35:12编辑过]
加好友 
发短信
Post By：2018/11/7 4:34:00 [只看该作者]
