主题：[求助] 遍历所有窗口 所有表并设置字体

窗口表字体

For Each wf As WinForm.Form In Forms
   For Each c As WinForm.Control In wf.Controls  
               If TypeOf C Is WinForm.Table Then '判断控件是否是表  
              Dim tb As WinForm.Table = C '使用特定类型的变量引用控件 
                  tb.Table.Font = New Font("宋体", bg_ziti, FontStyle.Regular) 
       End If
  Next   
Next

 红色位置出错