主题：[求助]关于SQL的代码

Dim Filter As String

If e.node.Text = "加载所有数据" Then

    Filter = ""

Else

    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

    Select Case e.Node.Level

        Case 0

            Filter ="[牌号] = '" & dr("牌号") & "'"

        Case 1

            Filter ="[牌号] = '" & dr("牌号") & "' And [母卷号] = '" & dr("母卷号") & "'"

        Case 2

            Filter ="[牌号] = '" & dr("牌号") & "' And [母卷号] = '" & dr("母卷号") & "'And [卷号] = '" & dr("卷号") & "'"           

    End Select

End If

Dim tb1 As WinF orm.Table = e.F orm.Controls("Table_查询表")

tb1.Table.Fill("select * f rom {工序合并表} where " & filter,"ShcsMain",True)