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

共有9152人关注过本帖树形打印复制链接主题：IN

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

加好友

发短信

等级：一尾狐帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00

Post By：2012/7/26 18:37:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("表a"))
Dim F As String
Dim n As String =e.Form.Controls("状态"). Value
With e.Form.Controls("状态")
    If .Value IsNot Nothing Then
        If F > "" Then
            F = F & " And "
        End If
        F = F & "状态 in(n)"
    End If
End With

g.Filter = F

e.Form.Controls("状态").类型为复选组合框

类似于这样。谢谢了

[此贴子已经被作者于2012-7-26 18:39:03编辑过]

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

加好友

发短信

等级：一尾狐帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00

这个方法可行吗 发帖心情

Post By：2012/7/26 20:12:00 [只看该作者]

那位高手帮忙看看。要是不行就只能if 。。。。end if

写几十条代码了图片点击可在新窗口打开查看

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47498 积分：251408 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/27 8:27:00 [只看该作者]

如果状态是整数：

Dim g As New GroupTableBuilder("统计表1", DataTables("表a"))
Dim n As String =e.Form.Controls("状态").Value
If n > "" Then
g.Filter = = "状态 in(" & n & ")"
End With

如果状态是字符：

Dim g As New GroupTableBuilder("统计表1", DataTables("表a"))
Dim n As String =e.Form.Controls("状态").Value
If n > "" Then
g.Filter = = "状态 in(‘" & n.Replace(",", "','") & "’)"
End With

好好看看：

http://www.foxtable.com/help/topics/0102.htm

http://www.foxtable.com/help/topics/1647.htm

http://www.foxtable.com/help/topics/1284.htm

[此贴子已经被作者于2012-7-27 8:29:34编辑过]

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

主题：IN