以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  大家有空帮我看这个段代码有什么问题？？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50647)
--  作者：wealthwind
--  发布时间：2014/5/10 15:06:00
--  大家有空帮我看这个段代码有什么问题？？

Dim names As new List (of String)
For Each c As Col In Tables("个案申请").Cols \'遍历主表所有列
    If c.DataCol.IsString Then \'当主表列为字符列时,将列名作为names的元素
            names.add(c.name)
        End If
Next
\'将names的元素用"|"分割为字符串作为条件筛选的下拉列表
Dim lb As String
Dim t As Integer
For t = 0 To names.Count-1
    If t=0 Then
        lb=names(t)
    Else
        lb=lb & "|" & names(t)
    End If
Next
Dim cxtj As WinForm.ComboBox = e.Form.Controls("查询条件")
cxtj.ComboList = lb & "|全部" \'将全部加入下拉列表

 

 

因为现在我设置窗口的表示副表，以上的代码失效了，如果用副表操作，以上的代码应该如何改呢？？
--  作者：程兴刚
--  发布时间：2014/5/10 15:14:00
--  
Dim lb As String
For Each c As Col In Tables("个案申请").Cols \'遍历主表所有列
    If c.DataCol.IsString Then \'当主表列为字符列时,将列名作为names的元素
             lb=lb & "|" & c.name
        End If
Next
lb = "全部" & lb
Dim cxtj As WinForm.ComboBox = e.Form.Controls("查询条件")
cxtj.ComboList = lb
--  作者：程兴刚
--  发布时间：2014/5/10 15:15:00
--  
您的源代码太啰嗦！
--  作者：狐狸爸爸
--  发布时间：2014/5/10 16:31:00
--  

副本不也一样吗，只是Table的名称不同而已：

http://www.foxtable.com/help/topics/1906.htm

http://www.foxtable.com/help/topics/1788.htm