老师你好：我不想把这{"项目状态","审核","资料类别"}三列的数据复制到“开标记录”表中，下面红色代码如何调整？谢谢！
Case "招标审核"
Dim fdr As DataRow = DataTables("开标记录").Find(filt)
Dim nms() As String = {"项目状态","审核","资料类别"}
If fdr Is Nothing AndAlso e.NewValue = "仅标录" Then
Dim ndr As Row = Tables("开标记录").AddNew()
For Each dc As DataCol In DataTables("开标记录").DataCols
For Each nm As String In nms
If e.DataTable.DataCols.Contains(dc.Name) AndAlso dc.Name.Contains(nm) = False Then
ndr(dc.Name) = dr(dc.Name)
End If
Next
Next
Else
If fdr IsNot Nothing Then
fdr.Delete()
Return
End If
End If
加好友 
发短信
Post By：2018/7/3 14:42:00 [显示全部帖子]
