现在在datacolchanged里面的代码如下：
If e.DataCol.Name = "工程代号"
Dim dr As DataRow
Dim Filter As String
dr = DataTables("委托台账").Find( "工程代号 = '" & e.DataRow("工程代号") & "'")
If dr IsNot Nothing Then
e.DataRow("委托单位") = dr("委托单位")
e.DataRow("建设单位") = dr("建设单位")
Else
'否则清除区号和邮编两列的内容
e.DataRow("委托单位") = Nothing
e.DataRow("建设单位") = Nothing
End If
End If
数据行还有其他的列没有一一列举，想把所有的行都复制过来，但是有一列是编号列要求为空
怎么实现，谢谢~
加好友 
发短信
Post By：2018/4/10 11:02:00 [显示全部帖子]
