主题：包含列名代码出错

改成

Dim fdr As DataRow = DataTables("系统编号").Find("项目系统编号 = '" & dr("项目系统编号") & "'")
If fdr IsNot Nothing Then
    Dim nms() As String = {"项目编号","标段编号","单位工程编号"}
    For Each nm As String In nms
        If e.DataTable.DataCols.contains(nm) Then
            If dr.IsNull("项目系统编号") Then
                dr(nm) = Nothing
            Else
                dr(nm) = fdr(nm)
            End If
        End If
    Next
End If