Dim Value()As String
Dim Filter As String
Dim lname As String
Dim c As String
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'Dim nd As WinForm.TreeNode
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Case 1
Dim nd As WinForm.TreeNode = tr.SelectedNode
For i As Integer = 0 To Tables("客户表").Cols.Count - 1
c=Tables("客户表").Cols(i).name
If c=nd.name Then
i=Tables("客户表").Cols.Count
End If
Next
Filter ="c= '" & Value(1) & "' '就是这列不知如何编写
End Select
DataTables("客户表").LoadFilter = Filter
DataTables("客户表").Load()
Filter ="c= '" & Value(1) & "' 我是想在这行语句中用变量作为列名来组成条件,我的目录树是这样的:
客户类型
普通
VIP
特殊
客户等级
A级
B级
还有很多,这里就不一一列了,如果选取的节点是“VIP”,则Filter ="[客户类型] = '" & Value(1) & "'",请问如何用列变理来取代"[客户类型] = '" & Value(1) & "'"
Filter ="
" & c
& " =
'" & Value(1) & "
' "
[此贴子已经被作者于2011-11-21 20:56:39编辑过]