- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- IN (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21889)
-- 发布时间：2012/7/26 18:37:00
-- IN
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 20:12:00
-- 这个方法可行吗
那位高手帮忙看看。要是不行就只能if 。。。。end if
写几十条代码了
-- 发布时间：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