[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有3238人关注过本帖树形打印复制链接主题：[求助]

yjd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

[求助]

Post By：2015/1/22 21:24:00 [只看该作者]

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

Tables("对公客户明细").Filter = "_Identify in (" & idxs.Trim(",") & ")"

Else

MessageBox.Show("您无此权限!")

End If

如果数据表表没有符合记录，系统报错System.Data.SyntaxErrorException: 语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表，并且必须用括号括起来。版主怎样写代码可以解决。谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/22 21:28:00 [只看该作者]

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

yjd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

Post By：2015/1/22 21:36:00 [只看该作者]

版主，这样虽然不报错，可是数据表有符合条件记录也不能实现成功筛选.

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/22 21:44:00 [只看该作者]

那就是你的代码逻辑不对，或者没有对应的数据。

例子上传上来

下一主题 >> << 上一主题

主题：[求助]