为了将一个表格中指定列或全部列内容相同的行加以删除，只保留其中一行，在tables（“名称货号单价”）的datacolchanging事件中编制代码如下：
代码1
Select Case e.DataCol.Name
Case "货号"
Dim dr As DataRow = e.DataTable.find("[货号] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
dr.delete()
Return
End If
End Select
当把这个表格整体复制后粘贴回原表格时，
结果只是删除了"货号"列相同的内容，其他列的内容一点没动
而货号列有内容的行其他列却是空的
代码2
Select Case e.DataCol.Name
Case "货号"
"DataTables("名称货号单价").DeleteFor("[货号] = '" & e.NewValue & "'" )
End Select
直接提示代码是错的，也不知道错在哪里
很郁闷，跪求高手指点~~~~~~~
[此贴子已经被作者于2013-3-15 17:33:35编辑过]
加好友 
发短信
Post By：2013/3/15 17:29:00 [只看该作者]
