以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  filter 条件怎么写  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113538)
--  作者：刘林
--  发布时间：2018/1/17 20:50:00
--  filter 条件怎么写
Dim doc As New PrintDoc
Dim rt As Prt.RenderTable
Dim rx As prt.RenderText
Dim tbl As Table = Tables("初中报名_table1")
Dim ColNames As String() = New String(){"考号", "姓名"}
Dim Rows As List(Of DataRow)
Dim cb1 As String = e.Form.Controls("CheckedComboBox2").value
Dim cb3 As String = e.Form.Controls("CheckedComboBox3").value
If cb1 = ""
    messagebox.show("打印过分单前请在左边下拉框中勾选要打印的科目并确定")
    Return
End If
Dim km() As String = cb1.Split(",")
Dim nj() As String = cb3.split(",")
Dim Regions As List(Of String()) = tbl.DataTable.GetValues("学校班级|年级|考试名称","年级 = \'" & cb3 & "\'") \'\'\'\'改后句子
Dim rm As prt.RenderEmpty
Doc.PageSetting.LeftMargin = 10 \'设置左边距
老师，我在打印报表时想用checkedcombobox3来显示几个年级，但打报表是想选择年级在条件中该怎么写，谢谢
--  作者：有点甜
--  发布时间：2018/1/17 20:54:00
--  
Dim Regions As List(Of String()) = tbl.DataTable.GetValues("学校班级|年级|考试名称","年级 in (\'" & cb3.Replace(",", "\',\'") & "\')")