以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取当前列名称  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161261)

--  作者:hanlingli111999
--  发布时间:2021/3/11 13:37:00
--  [求助]获取当前列名称
蓝老师好,我用的代码用于模糊查询,代码如下:
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = CurrentTable 
If txt = "" Then
    tbl.Filter = ""
Else
        txt = "\'%" & txt.replace("%", "[%]").replace("*", "[*]") & "%\'"
tbl.Filter = "(CurrentTable.cols(CurrentTable.ColSel).name) Like " & txt 
End If
请问老师,其中获取当前列名称代码CurrentTable.cols(CurrentTable.ColSel).name,
为什么出错呀,提示说“表达式包含未定义的函数调用 CurrentTable.cols()。”
怎么修改呀

--  作者:有点蓝
--  发布时间:2021/3/11 13:45:00
--  
tbl.Filter = (CurrentTable.cols(CurrentTable.ColSel).name) & “ Like " & txt 
--  作者:hanlingli111999
--  发布时间:2021/3/11 13:58:00
--  
问题解决,谢谢