以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:如何获得二级列名称?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24117)
--  作者：yangming
--  发布时间：2012/10/2 11:27:00
--  请教:如何获得二级列名称?
比如,我有一个窗口表,我想得到二级列名称,在窗口中的文本框中显示,请看代码:当我设成 这样时 dc.Name(2),会报错,请教应该如何设置红字的部分?
For Each dc As Col In Tables("多栏2_Table2").Cols
 e.Form.Controls("TextBox4").text =dc.Name(2)
Next
--  作者：程兴刚
--  发布时间：2012/10/2 11:58:00
--  
分割后取得！
--  作者：yangming
--  发布时间：2012/10/2 12:04:00
--  
For Each dc As Col In Tables("多栏2_Table2").Cols
    
    If dc.Name <> "日期" Or dc.Name <> "凭证号" Or dc.Name <> "摘要"
        Dim Par() As String = dc.Name.Split("_")
     
       
        e.Form.Controls("TextBox4").text = Par(1)
    End If
Next

这样仍然出错,如果改成: Par(0),可以得出一级名称
--  作者：czy
--  发布时间：2012/10/2 12:05:00
--  
Dim CName As String
For Each dc As Col In Tables("多栏2_Table2").Cols
    If dc.name.Contains("_") Then
        CName &  = "," & dc.Name.Split("_")(1)
    End If
Next
e.Form.Controls("TextBox4").text = CName.Trim(",")
--  作者：程兴刚
--  发布时间：2012/10/2 12:12:00
--  
哈，我在酒桌上，手机回复不方便！
--  作者：yangming
--  发布时间：2012/10/2 12:27:00
--  
谢谢CZY版主,谢谢程版!CZY版主的可用