Dim Result1 As DialogResult
If e.Col.Name = "收入金额_二保" Then
Result1 = MessageBox.Show("是否要提醒业务开单", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result1 = DialogResult.Yes Then
Dim Cols1() As String = {"日期","车号","收入金额_二保"}
Dim Cols2() As String = {"打款日期","车号","业务类型_二保"}
Dim dr2 As DataRow = DataTables("待办业务").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i))= Tables("收入").Current(Cols1(i))
Next
End If
End If
当把数据复制到待办业务表里后，一点保存后，最后一行数据又被复制两行。怎么回事
加好友 
发短信
Post By：2015/5/17 13:41:00 [显示全部帖子]
