主题：变量设置问题

Dim Filter As String
Dim i As String = e.Form.Controls("ComboBox1").value   

Dim n As String = e.Form.Controls("ComboBox3").value   
With e.Form.Controls("combobox5")
       If .Value IsNot Nothing Then
             If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "  列名称  = '"& .Value &"' " 
    End If
End With
If Filter > "" Then
    Tables(i).Filter = Filter
End If
Tables(i).Filter  = Filter
MainTable = Tables(i) '打开生成的统计表

上面代码中的这句:     Filter = Filter & "  列名称  = '"& .Value &"' "   中的"列名称
"用变量 n  一个如何设置,请师傅指导,谢谢!

 

一楼的代码为筛选按钮代码

如果 i 为订单表 将这句Filter = Filter & "  列名称  = '"& .Value &"' " 中的"列名称" 改为"产品"或"客户"都能够达到预期的目的,但将该句Filter = Filter & "  列名称  = '"& .Value &"' " 改为Filter = Filter & "  n  = '"& .Value &"' " 就提示 "未找到列 [ n ]"

   另  Filter = Filter & "  n  = '"& .Value &"' "   这句中 n =  的 "= "号是否可以用变量代替

反复看了贺老师指点的章节, 还是没有找到答案,请师傅帮忙,谢谢!

n 是这个的 Dim n As String = e.Form.Controls("ComboBox3").value   我设置了代码在combobox3 能显示所选择表的所有列啊

谢谢MR725老师!

加上楼上代码后,不提示任何错误,但是无动于衷,没有任何反应'可能确实是"列名，作为筛选条件是不能在等号左边用变量替代的！"

mr725老师9楼代码可以筛选,但是筛选的值好像比需要的值大一点,如

筛选产品=PD01时,会筛选出PD05  客户=CS01 筛选出的是CS04 ,雇员=EP01,筛选出的是EP02 有时要点击两次按钮

见文件高级筛选表窗口1

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

点击浏览该文件:管理项目1.table

现在也还没有弄懂代码的含义,慢慢琢磨.

现在9楼代码能准确理解人的意图,精华!

谢谢!

这条 r = .Find(f,0,Tables(i).cols(n).index, False, False, True) 的意思不大理解

为什么要false 和 true

谢谢老师,大致上看懂了!

另外,我文件窗口中combobox3的TextChanged事件有一段SQL代码:

 Dim dt As DataTable
   cmd.CommandText = "Select  DISTINCT " & cmb2.Value & " from {订单} Where " & cmb2.Value & " Is Not Null"   '需要排除重复的行,可以在字段列表前面加上关键词DISTINCT
   dt = cmd.ExecuteReader()

这段代码中的表名{订单} ,能否用变量 i 代替,怎样代替?

谢谢赐教!

谢谢二位后起之秀!

9楼代码确实精典,遗憾只能筛选=该值,而不能筛选<该 值 或 < 该值 或<>该值

再次谢谢mr725老师~