| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 讨教字段标题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70115) |
| -- 作者：hbhb -- 发布时间：2015/6/16 9:38:00 -- 讨教字段标题 大师：好！ 请问：如何在代码编辑器中，把表的标题及字段的标题，同字段名一样都显示出来?
|
| -- 作者：Bin -- 发布时间：2015/6/16 9:40:00 -- 不行哦, 只能用代码获取弹出. |
| -- 作者：大红袍 -- 发布时间：2015/6/16 10:04:00 -- 做个任务计划，加入代码
Dim frm = Windows.Forms.Form.ActiveForm |
| -- 作者：hbhb -- 发布时间：2015/6/16 10:49:00 -- 怎么无效？ |
| -- 作者：大红袍 -- 发布时间：2015/6/16 11:00:00 -- 不可能无效。你测试命令窗口。 |
| -- 作者：大红袍 -- 发布时间：2015/6/16 11:02:00 -- 事件窗口还要改
[此贴子已经被作者于2015/6/16 11:02:29编辑过]
|
| -- 作者：hbhb -- 发布时间：2015/6/16 11:07:00 -- 谢谢！不错，高！ 那能不能在代码编辑器中也显示呢？或在指定的窗口？
|
| -- 作者：大红袍 -- 发布时间：2015/6/16 11:09:00 -- 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) 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 |
| -- 作者：wyz20130512 -- 发布时间：2015/6/16 11:16:00 -- 回复：（hbhb）怎么无效？ 在命令窗口测试"大红袍"老师的代码,通过了,但没显示出表标题,字段标题显示正常. 这个在编程时有很好的作用,象我建表时,喜欢用拼音的首字母作字段名,用汉字作字段标题. 再次感谢"大红袍"老师,真的很专业.
[此贴子已经被作者于2015/6/16 11:16:45编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/6/16 11:32:00 -- 加上表标题
Dim frm = Windows.Forms.Form.ActiveForm |