请问老师，记录窗口中的字体如何更改？

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

可我用的不是记录窗口控件，而是系统快捷键那个记录窗口，是用table.OpenRecordGrid打开的，没有办法定义控件啊

我做了一个复选框，选中则显示记录窗口，取消勾选则隐藏记录窗口：

老师，我不太明白这段是什么意思。我套用了你的代码，改为我自己窗口的控件，代码如下：

Dim t As WinForm.Table = e.Form.Controls("Table1")          \'定义 t 为窗口中的表
If e.Sender.Checked = True Then                                       \'如果勾选，则打开记录窗口
    t.Table.OpenRecordGrid(250)
    For Each a As OBJECT In t.Table.grid.parent.controls
        MessageBox.Show(a.name)                                     \'测试, 输出为 "Table1"
        For Each b As OBJECT In a.controls
            MessageBox.Show("1")                                       \'测试, 没有任何输出,连对话框都没有弹出来
            output.Show(b.text)
            If b.text = t.Table.Name Then
                Dim bctr = b.controls(0).controls(0)                  \'定义bctr为 什么对象?
                bctr.Font = new font("tahoma",10)
                bctr.AutoSizeRows
                bctr.AutoSizeCols
                Exit For
            End If
        Next
    Next
Else
    t.Table.CloseRecordGrid()
End If

结果和之前是一样的，字体还是没有改变，还应该怎么改呢？

另外，grid属性为什么没有在table的属性列表中？之前从来不知道还有这么一个属性。

老师好，我的窗口表控件绑定的表名为“L_GoodsInfo”

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

代码中也按照你说的改过来了：

If e.Sender.Checked = True Then
    Tables("L_GoodsInfo").OpenRecordGrid(250)
    For Each a As OBJECT In Tables("L_GoodsInfo").grid.parent.controls
        For Each b As OBJECT In a.controls
            output.Show(b.text)
            If b.text = "L_GoodsInfo" Then
                Dim bctr = b.controls(0).controls(0)         \'定义bctr为 什么对象?
                bctr.Font = new font("tahoma",10)
                bctr.AutoSizeRows
                bctr.AutoSizeCols
                Exit For
            End If
        Next
    Next
Else
    Tables("L_GoodsInfo").CloseRecordGrid()
End If

但是结果还是那样啊，没有变化

回复楼上，做个具体的实例发上来测试。

如果你确实无法做到，那你就单独做一个窗口放入【记录窗口】控件去做。