以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师,麻烦帮我看下这代码错在哪里了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99285)

--  作者:jick0526
--  发布时间:2017/4/16 16:33:00
--  老师,麻烦帮我看下这代码错在哪里了
系统事件CurrentTableChanged

With RibbonTabs("日常工作")("快速筛选")("筛选")
    .Items.Clear \'清除原有项目
    For Each kh As String In CurrentTable.Position.GetComboListString
        Dim b As New RibbonMenu.ComboBox(c.Name) 
        b.Text = kh
        .Items.Add(b)
    Next
End With

老师,请问下上面的代码哪里错了,放在系统事件CurrentTableChanged里面显示“GetComboListString不是lnteger的成员“错误


--  作者:wyz20130512
--  发布时间:2017/4/16 17:13:00
--  
http://www.foxtable.com/webhelp/scr/1435.htm
--  作者:有点蓝
--  发布时间:2017/4/16 22:49:00
--  
For Each kh As String In CurrentTable.DataTable.GetComboListString(CurrentTable.Cols(CurrentTable.ColSel).Name)