讨教字段标题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 讨教字段标题

共有3484人关注过本帖树形打印复制链接主题：讨教字段标题

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

讨教字段标题 发帖心情

Post By：2015/6/16 9:38:00 [只看该作者]

大师：好！

请问：如何在代码编辑器中，把表的标题及字段的标题，同字段名一样都显示出来?

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/16 9:40:00 [只看该作者]

不行哦, 只能用代码获取弹出.

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/16 10:04:00 [只看该作者]

做个任务计划，加入代码

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

hbhb

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/6/16 10:49:00 [只看该作者]

怎么无效？

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/16 11:00:00 [只看该作者]

不可能无效。你测试命令窗口。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/16 11:02:00 [只看该作者]

事件窗口还要改

[此贴子已经被作者于2015/6/16 11:02:29编辑过]

hbhb

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/6/16 11:07:00 [只看该作者]

谢谢！不错，高！

那能不能在代码编辑器中也显示呢？或在指定的窗口？

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（hbhb）怎么无效？ 发帖心情

Post By：2015/6/16 11:16:00 [只看该作者]

在命令窗口测试"大红袍"老师的代码,通过了,但没显示出表标题,字段标题显示正常.

这个在编程时有很好的作用,象我建表时,喜欢用拼音的首字母作字段名,用汉字作字段标题.

再次感谢"大红袍"老师,真的很专业.

[此贴子已经被作者于2015/6/16 11:16:45编辑过]

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/16 11:32:00 [只看该作者]

加上表标题

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

下一主题 >> << 上一主题

总数 22 1 2 3 下一页

主题：讨教字段标题