这样写代码,如
For Each dt As DataTable In DataTables If dt.datacols.Contains("企业名称") Then If _usergroup = "管理员" Then dt.Loadfilter = "" dt.load Else dt.Loadfilter = "企业名称 = '" & _Usergroup & "'" dt.load End If End IfNext