主题：请问有用户自定义样式的例子吗？

 呃，不是可以自动刷新的么？

Dim flg As new windows.forms.ColorDialog()
Dim clr As Color
If flg.showdialog = DialogResult.OK Then
    clr = flg.Color
    Tables("样式值").Rows(1)("alpha分量") = clr.A
    Tables("样式值").Rows(1)("蓝色分量") = clr.B
    Tables("样式值").Rows(1)("绿色分量") = clr.G
    Tables("样式值").Rows(1)("红色分量") = clr.R
    Tables("样式值").Rows(1).Save
  
   
    DataTables("表A").Styles("a").ForeColor = clr
    Tables("窗口1_Table1").Refresh
End If