主题：备注列窗口字体大小怎么更改？不显示回车换行符？

请问老师，这个代码写在哪里呢，能修改备注字体大小

AfterLoadTableSetting事件

For Each a As OBJECT In Tables("表B").grid.parent.controls
    For Each b As OBJECT In a.controls
        For Each c As OBJECT In b.controls
            If c.text = "第四列" Then  '第四列为备注列
                c.font = New Font("微软雅黑",12)
            End If
        Next
    Next
Next

有点甜老师，你太厉害了，我还有个问题是查询表怎么能增加个按钮，我可以单击后刷新呢

参考

http://www.foxtable.com/webhelp/scr/1928.htm

http://www.foxtable.com/webhelp/scr/1929.htm

又出问题了，我把查询表里的SQL语句写进事件操作时，出现对于多个基表不支持动态 SQL 生成。

错误所在事件：菜单,刷新数据,Click
详细错误信息：
对于多个基表不支持动态 SQL 生成。

后面的参数，用true

DataTables("表A").Fill("Select * From {表A} as a inner join {表B} as b on a.第一列=b.第一列", True)

我在表属性AfterLoadTableSetting事件中加了修改备注列窗口字体大小的代码，但是备注信息每次打开文件的时候字体很小，每次再打开表属性并点击确定后就改变了，不明白怎么回事呀，感觉没有运行AfterLoadTableSetting事件代码。
此主题相关图片如下：031401.jpg


此主题相关图片如下：031402.jpg

修改代码

Do While True
    For Each a As OBJECT In Tables("表A").grid.parent.controls
        For Each b As OBJECT In a.controls
            For Each c As OBJECT In b.controls
                If c.text = "第三列" Then  '第四列为备注列
                    c.font = New Font("微软雅黑",12)
                    Exit Do
                End If
            Next
        Next
    Next
    application.Doevents
Loop
msgbox(333)

afterOpenProject事件

Tables("表a").cols("第三列").openwindow
For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        For Each c As OBJECT In b.controls
            If c.text = "第三列" Then  '第四列为备注列
                c.font = New Font("微软雅黑",12)
            End If
        Next
    Next
Next