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

你可以替换一下内容，把回车符替换成真正的回车，如

Dim str = "abc" & chr(13) & "123"
CurrentTable.value = str
str = str.replace(chr(13), vbcrlf)
msgbox(str)

这样写吧？

select replace(t.treatment,chr(10),chr(13)||chr(10)) as 备注

如果要扩展成备注列，加入convert或cast转换备注text类型

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

后面的参数，用true

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

修改代码

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