以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教狐狸计算器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72330)
--  作者：hbhb
--  发布时间：2015/7/28 14:16:00
--  请教狐狸计算器
大师：好！目前狐狸计算器显示的字段名，能否改为显示字段标题？
--  作者：大红袍
--  发布时间：2015/7/28 14:40:00
--  

计划管理，参考以前跟你说过的绑定事件解决。

 

Dim frm  = windows.Forms.Form.Activeform
If frm IsNot Nothing Then
    \'output.show(frm.Name & " " & frm.text)
    If frm.name = "bj" AndAlso frm.text = "狐狸计算器" Then
        \'For Each c As object In frm.controls
        \'    output.show(c.name)
        \'Next
        Dim ls As object = frm.controls("lstCols")
        ls.items.clear
        For Each c As Col In CurrentTable.cols
            ls.items.add(c.name & " " & c.caption)
        Next
    End If
End If