需求:系统编号表和项目信息表,我在项目信息表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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-11/20181174333528883.png)
[此贴子已经被作者于2018/11/7 4:35:12编辑过]