系统升级后,这段代码为何不起作用了?
Dim fnt As font = New Font("微软雅黑",9)
For Each t As Table In Tables
t.Grid.ExtendLastCol = True
t.Cols.Frozen =0
t.DataTable.SysStyles("EmptyArea").BackColor = Color.FromARGB(235, 245, 255)
t.DataTable.SysStyles("Alternate").BackColor = Color.Azure
t.Font =fnt
Next