主题：代码

加一个列，记录唯一的值。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据同步问题.table

 那就不要做实时的匹配。单独写一个按钮执行那些代码，如

For Each dc As DataCol In DataTables("庆前").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("庆前").rows
            If str.IndexOf(r("一")) >= 0 AndAlso str.IndexOf(r("二")) >= 0 AndAlso str.IndexOf(r("三")) >= 0 Then
                r(dc.name) = "√"
                idx = 1
            Else
                r(dc.name) = idx
                idx = idx + 1
            End If
        Next
    End If
Next

这个不需要用按钮代码。在datacolchanged等事件，已经做了同步。

你对 期号 列，重置列，即可得到匹配的数据的。你删除某行，也会对应删除另外两个表的数据。

参考代码

If e.Col.Name.StartsWith("庆") AndAlso e.Col.name.Length = 7 Then
    Dim str As String = e.Col.Name.Replace("庆", "")
    If val(e.text) >= 20 Then      
        e.Table.DataTable.AddUserStyle("样式1", color.red, Color.black)       
        e.style = "样式1"       
    End If   
End If

 20楼的东西项目，没有问题，不会慢。

1、Dim num As Integer = 20
Dim dt As DataTable = DataTables("前列")
Dim q As new QueryBuilder
q.TableName = "查询"
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 一,二,三" & sql & " From {" & dt.Name & "}"
q.Build
MainTable = Tables("查询")

2、不可以，这样计算就有可能有错误。

3、没问题

用循环，你要是看懂之前的代码，你自己就会写。

Dim num As Integer = 20
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 一,二,三" & sql & " From {" & dt.Name & "}"
    q.Build
    MainTable = Tables(q.TableName)
Next