循环代码要怎么修改?请教老师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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的客户,同时也移除掉"客户短信电话"表中的客户

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

主题：循环代码要怎么修改?请教老师