主题：讨教字段标题

做个任务计划，加入代码

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class197" Then
        Dim lbox = frm.Controls("SplitContainer1").panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").panel2.Controls("C1DockingTab1").Controls("FieldsPage").Controls("SplitContainer4").Panel2.Controls("lstFields")
        Dim tname = lbox.items(0)
        For i As Integer = 1 To DataTables(tname).Datacols.count
            Dim dc = DataTables(tname).DataCols(i-1)
            lbox.items(i) = dc.name & " " & dc.Caption
        Next
    End If
End If

事件窗口还要改

加上表标题

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    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 & " " & DataTables(tname).Caption
        For i As Integer = 1 To DataTables(tname).Datacols.count
            Dim dc = DataTables(tname).DataCols(i-1)
            lbox.items(i) = dc.name & " " & dc.Caption
        Next
    End If
End If

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

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

你想做什么？参考 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