你也可以批量设置
Dim dts() As String = {"表A", "表C"}for each dt as string in dts DataTables(dt).SysStyles("EmptyArea").BackColor = Color.WhiteNext