Dim dts() As String = {"营业日报表", "客人fa piao明细", "开piao内容", "操作审核人员"} For Each dt As String In dts DataTables(dt).GlobalHandler.DataColChanged = True DataTables(dt).GlobalHandler.DrawCell = True DataTables(dt).AddUserStyle("财务", Color.Green, Color.Black)