主题：[求助]

 If User.IsRole("对公专区") Then
    '审核代码
    Dim idxs As String = "-1,"
    For Each dr As DataRow In DataTables("对公客户明细").Select("已开通业务 is not null And [年日均余额]>=50000")
        If dr("已开通业务").split(",").length >= 4 Then
            idxs &= dr("_Identify") & ","
        End If
    Next
    Tables("对公客户明细").Filter = "_Identify in (" & idxs.Trim(",") & ")"
Else
    MessageBox.Show("您无此权限!")
End If