对于爱好个性化标题的人，这个太实用了。
稍加改动，列名很多时，名称和标题容易对应上，不然容易看花眼。
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
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("******↑名称↑ ↓名称←→标题↓******")
If DataTables(tname).Caption <> Nothing Then
lbox.Items.Add(tname & " " & DataTables(tname).Caption)
End If
For i As Integer = 1 To DataTables(tname).DataCols.Count
Dim dc = DataTables(tname).DataCols(i - 1)
If dc.Caption <> Nothing Then
lbox.Items.Add(dc.Name & " " & dc.Caption)
End If
Next
End If
End If
[此贴子已经被作者于2015/6/17 14:51:52编辑过]
加好友 
发短信
Post By：2015/6/17 14:46:00 [只看该作者]
