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)
执行以上代码时，如果点了“加载所有数据”，就提示SQL语句错误，问题我知道是出在了 select 语句后面的 where那，请老师改下。
[此贴子已经被作者于2015/3/1 17:27:27编辑过]
加好友 
发短信
Post By：2015/3/1 17:27:00 [显示全部帖子]
