以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  备注型列窗口的字体如何调整  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114114)
--  作者：有点甜
--  发布时间：2018/1/29 11:38:00
--  
For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        If b.text = "第十列" Then
            b.controls(0).controls(0).font = new font("宋体", 12)
        End If
    Next
Next
--  作者：有点甜
--  发布时间：2018/1/29 14:43:00
--  

执行下面代码，看弹出什么。

 

For Each a As OBJECT In Tables("日历").grid.parent.controls
    For Each b As OBJECT In a.controls

    msgbox(b.text)
        If b.text = "会议" Then
            b.controls(0).controls(0).font = new font("宋体", 20)
        End If
    Next
Next