If e.Col.name = "删" Then
Dim Result As DialogResult
Dim id As String
id = e.Row("第一列")
Result = MessageBox.Show("确定要删除 " & id & " ?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Cols1() As String = {"编号","第一列","第二列"}
Dim Cols2() As String = {"编号","第一列","第二列"}
Dim fdr As DataRow = DataTables("表B").AddNew
Dim cr As Row = Tables("表A").current
For i As Integer = 0 To Cols1.Length -1
cr(Cols2(i)) = fdr(Cols1(i))
Next
e.Row.Delete() '然后删除此行数据
Else
Return
End If
End If
红色部分，为什么当前行数据没有从表A复制到表B呢？
加好友 
发短信
Post By：2017/1/16 14:17:00 [显示全部帖子]
