主题：报表

Dim Regions As List(Of String) = tbl.DataTable.GetValues("班级") ''''改后句子

 

改成

 

Dim Regions As List(Of String) = tbl.DataTable.GetValues("班级", tbl.Filter) ''''改后句子

 

-----------------

 

Rows = tbl.DataTable.Select("[班级] ='" & region &  "'", "学生姓名")

 

改成

 

Rows = tbl.DataTable.Select("[班级] ='" & region &  "' and (" & iif(tbl.Filter>"", tbl.Filter, "1=1") & ")", "学生姓名")