代码是写在窗口的按钮中,代码如下
Dim t1 As Table = Tables("提取客户资料_Table1")
Dim dr As DataRow
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {客户短信电话} "
dt = cmd.ExecuteReader
For Each r As Row In t1.GetCheckedRows
dr = dt.find( "[客户姓名] = '" & r("客户姓名") & "'")
If dr Is Nothing Then
Dim dr1 As Row
dr1 = Tables("客户短信电话").AddNew()
dr1("客户姓名") = r("客户姓名")
dr1("联系电话") = r("联系电话")
dr1("省份") = r("省份")
dr1("地区") = r("地区")
End If
Next
上面的代码说的是如果窗口表中复选框已勾选,从后台验证是否有相同的客户姓名,没有的话就按复选框选中的行添加到"客户短信电话"表中
For Each r1 As Row In Tables("提取客户资料_Table1")
If r1.Checked = False Then
Dim cmd1 As New SQLCommand
cmd1.C
Dim Count As Integer
cmd1.CommandText = "DELETE FROM {客户短信电话} WHERE [客户姓名] = '" & r1("客户姓名") & "'"
Count= cmd1.ExecuteNonQuery()
DataTables("客户短信电话").RemoveFor("客户姓名 = '" & r1("客户姓名") & "'")
End If
Next
上面的代码想实现从后台"客户短信电话"表中删除掉窗口表复选框为False的客户,同时也移除掉"客户短信电话"表中的客户
代码写到循环语句中了,不知道怎么修改,请教老师
加好友 
发短信
Post By：2013/5/5 1:48:00 [只看该作者]
