代码是写在窗口的按钮中,代码如下

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

上面的代码说的是如果窗口表中复选框已勾选,从后台验证是否有相同的客户姓名,没有的话就按复选框选中的行添加到"客户短信电话"表中

代码写到循环语句中了,不知道怎么修改,请教老师