VB 报表问题

Question

Private Sub Command1_Click() 
Dim SQLoriginal As String 
Dim SQLadd As String 
Dim SQLorder As String 
Dim strSql As String 
  
SQLoriginal = "SELECT 年级,院系,专业,人数,辅导员,班长,备注 FROM 班级表 " 
SQLadd = "WHERE 1=1 " 
SQLorder = "" If Check1.Value = 1 And IsNumeric(Text1) Then 
    SQLadd = SQLadd + "and 年级='" + Text1 + "'" 
End If 
  
If Check2.Value = 1 And Not IsNull(Text2) Then 
    SQLadd = SQLadd + "and 专业='" + Text2 + "'" 
End If If Check3.Value = 1 And IsNumeric(Text3) Then 
    SQLadd = SQLadd + "and 人数='" + Text3 + "'" 
End If If Check4.Value = 1 And Not IsNull(Text4) Then 
    SQLadd = SQLadd + "and 辅导员='" + Text4 + "'" 
End If strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_class.State = 1 Then 
  Dat_Main.rsDat_class.Close 
End If     Dat_Main.rsDat_class.Open strSql 
    Dat_Class.Show vbModal 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text4.Text = "" End Sub Private Sub Command2_Click() 
    Unload Me 
End Sub Private Sub Form_Load() 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text4.Text = "" 
End Sub 没看出什么问题,试试这样看看.