主题：讨教字段标题

解决了大多数人困惑的问题，袍哥绝对牛，如果有那么一天。。。。。，我想肯定会有那么一天的。

"大红袍"老师,若是能显示出表标题及排列整齐就更完美了.

 回复11楼12楼，看懂代码，自己改造一下。

是想看懂代码,可这段代码已超出了Foxtable介绍的范围,看不明白.

For i As Integer = 1 To DataTables(tname).Datacols.count
            Dim dc = DataTables(tname).DataCols(i-1)
            lbox.items(i) = dc.name & " " & dc.Caption

 

你只需要留心，下面修改赋值的内容

 

你想做什么？参考 http://www.foxtable.com/help/topics/0947.htm 控件

就是在代码设计窗口中,单击字段的某一表，显示字段的标题，就像您做的那样，但标题不是并排显示，而是在所有显示的列名称的下面，同序显示标题。

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    output.show(frm.name)
    If frm.Name = "Class197" OrElse frm.name = "Class260" Then
        Dim lbox
        If frm.name = "Class197" Then
            lbox = frm.Controls("SplitContainer1").panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").panel2.Controls("C1DockingTab1").Controls("FieldsPage").Controls("SplitContainer4").Panel2.Controls("lstFields")
        Else
            lbox = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").panel2.Controls("C1DockingTab1").Controls("FieldsPage").Controls("SplitContainer4").Panel2.Controls("lstFields")
        End If
       
        Dim tname = lbox.items(0).split(" ")(0)
        lbox.items(0) = tname

        lbox.Items.Clear
        lbox.items.add(tname)
        For i As Integer = 1 To DataTables(tname).Datacols.count
            Dim dc = DataTables(tname).DataCols(i-1)
            lbox.items.add(dc.name)
        Next
        lbox.items.add(iif(DataTables(tname).Caption=Nothing,tname,DataTables(tname).Caption))
        For i As Integer = 1 To DataTables(tname).Datacols.count
            Dim dc = DataTables(tname).DataCols(i-1)
            lbox.items.add(iif(dc.caption=Nothing,dc.name,dc.caption))
        Next
    End If
End If