If User.IsRole("对公专区") Then
'审核代码
Dim idxs As String = ""
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
如果数据表表没有符合记录,系统报错System.Data.SyntaxErrorException: 语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表,并且必须用括号括起来。版主怎样写代码可以解决。谢谢!