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来显示几个年级，但打报表是想选择年级在条件中该怎么写，谢谢
加好友 
发短信
Post By：2018/1/17 20:50:00 [显示全部帖子]
