Dim tab As WinForm.TabControl = e.sender Select Case tab.SelectedPage.Name Case "退货"
With e.Form.Controls("Table1").Table .DataTable.SysStyles("EmptyArea").BackColor = Color.AliceBlue End With Case "修改" With e.Form.Controls("Table2").Table .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke End With End Select