按钮样式批量设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/webhelp/topics/1849.htm

看帮助看完整，不要断章取义

For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.Button Then '判断控件是否是文本框
Dim t As WinForm.Button = c '使用特定类型的变量引用控件

t.FlatStyle = FlatStyle.flat
End If
Next

dt.Grid.Styles("Normal").Border.Color = Color.red

仔细看看：http://www.foxtable.com/webhelp/topics/1788.htm

通过控件的Table属性获得对应的Table和DataTable

Table控件本身有一个Table属性，用于返回其绑定的Table，例如：

Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
tbl.DataTable.Save()

就是9楼的用法，然后认真看看10楼的说明。如果都看不懂，先回头学学基础：http://www.foxtable.com/webhelp/topics/1592.htm

If Typeof c Is WinForm.Table Then '判断控件是否是文本框

Dim dt As WinForm.Table = c '使用特定类型的变量引用控件

dt.Table.ListMode = True '突出选定行

到底理解了什么啊！

For Each c As WinForm.Control In e.Form.Controls

If Typeof c Is WinForm.Table Then '判断控件是否是文本框

Dim dt As WinForm.Table = c '使用特定类型的变量引用控件

dt.Table.ListMode = True '突出选定行

dt.Table.Grid.Styles("Normal").Border.Color = Color.red '当前表格边线色

dt.Table.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue

dt.Table.DataTable.SysStyles("EmptyArea").BackColor = Color.White '当前表空白区背景色

dt.Table.ExtendLastCol = True '当前表自动调整列宽

'Tables("订单").Cols("数量").Width = 150 '当前表指定列的宽度

dt.Table.DefaultRowHeight = 40 '当前表自动固定行高

End If

如果实在看不懂，就把各种类型变量定义好再用

For Each c As WinForm.Control In e.Form.Controls

If Typeof c Is WinForm.Table Then '判断控件是否是文本框

Dim tbl As WinForm.Table = c '使用特定类型的变量引用控件

Dim t As Table = tbl.Table

Dim dt As DataTable = t.DataTable

t.ListMode = True '突出选定行

t.Grid.Styles("Normal").Border.Color = Color.red '当前表格边线色

t.ExtendLastCol = True '当前表自动调整列宽

'Tables("订单").Cols("数量").Width = 150 '当前表指定列的宽度

t.DefaultRowHeight = 40 '当前表自动固定行高

'写代码的时候尽量同类型的用法放到一起

dt.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue

dt.SysStyles("EmptyArea").BackColor = Color.White '当前表空白区背景色

End If

主题：按钮样式批量设置