主题：代码

你直接在表1那里删除行，其余的多有表都会同步啊。看datarowdeleting事件的代码。

去把首页的视频教程看完。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

如果要保存代码，肯定需要做个窗口，做个按钮。

Dim num As Integer = 30
Dim tns() As String = {"庆前", "前列"}
For Each tn As String In tns
    Dim dt As DataTable = DataTables(tn)
    Dim q As new QueryBuilder
    q.TableName = "查询_" & tn
    Dim sql As String = ""
    For Each dc As DataCol In dt.DataCols
        If dt.Find(dc.name & " = '" & num & "'") IsNot Nothing Then
            sql &= "," & dc.name
        End If
    Next
    q.SelectString = "Select [_Identify], [_sortkey], 一,二,三" & sql & " From {" & dt.Name & "}"
    q.Build
    MainTable = Tables(q.TableName)
Next

Dim ary() As String = {"庆一三四", "一三四列","庆一二四", "一二四列"}
Dim cs() As String = {"一,三,四", "一,三,四","一,二,四", "一,二,四"}
For i As Integer = 0 To ary.length - 1
    dim tn as string = ary(i)
    DataTables(tn).StopRedraw
    For Each dc As DataCol In DataTables(tn).DataCols
        If dc.Name.StartsWith("庆") AndAlso dc.name.Length = 7 Then
            Dim str As String = dc.Name.Replace("庆", "")
            Dim idx As Integer = 1
            For Each r As Row In Tables(tn).rows
                Dim flag As Boolean = True
                For Each c As String In cs(i).split(",")
                    If str.IndexOf(r(c)) < 0 Then
                        flag = False
                        Exit For
                    End If
                Next
                If flag Then
                    r(dc.name) = "√"
                    idx = 1
                Else
                    r(dc.name) = idx
                    idx = idx + 1
                End If
            Next
        End If
    Next
    DataTables(tn).ResumeRedraw
Next