有谁能帮我解释下这些VB代码啊

来源：百度知道编辑：UC知道时间：2024/09/24 13:49:37

很急急,大家能不能帮我看下,论文里要写的,谢谢啊,给我重要的给我解释下,好了,谢谢大家,今天就要交了

Private Sub Command3_Click()
Dim j As Long
Dim txtSQL As String
Dim txSQL As String
txtSQL = "select * from score_Form"
If Text2(1) <> "" Then
txtSQL = txtSQL & " where score_Per='" & Trim(Text2(1)) & "'"
End If
If Combo2(0).Text <> "" Then
If txtSQL = "select * from score_Form" Then
txtSQL = txtSQL & " where score_Cla='" & Trim(Combo2(0).Text) & "'"
Else
txtSQL = txtSQL & " And score_Cla='" & Trim(Combo2(0).Text) & "'"
End If
End If
If Combo2(1).Text <> "" Then
If txtSQL = "select * from score_Form" Then
txtSQL = txtSQL & " where score_Stu='" & Trim(Combo2(1

'把主要的代码,给你注释了一下

Private Sub Command3_Click()
Dim j As Long
Dim txtSQL As String
Dim txSQL As String

'从这儿开始，是动态生成SQL语句，根据你的输入不同，SQL语句的结构也不同
txtSQL = "select * from score_Form"
If Text2(1) <> "" Then
txtSQL = txtSQL & " where score_Per='" & Trim(Text2(1)) & "'"
End If
If Combo2(0).Text <> "" Then
If txtSQL = "select * from score_Form" Then
txtSQL = txtSQL & " where score_Cla='" & Trim(Combo2(0).Text) & "'"
Else
txtSQL = txtSQL & " And score_Cla='" & Trim(Combo2(0).Text) & "'"
End If
End If
If Combo2(1).Text <> "" Then
If txtSQL = "select * from score_Form" Then
txtSQL = txtSQL & " where score_Stu=&

谁能帮我解释下这些代码的含义~?? [vb]帮我解释代码 VB+SQL server 有段代码帮我解释下啊！总是错误提示帮我解释这些代码。。。。 VB计时器代码研究我有代码谁能稍微给我解释下那位高手帮我解释一下这些VB代码啊. 求贵人详细解释这些vb代码?万分感谢谁能帮我解释下这些词语啊代码谁帮我解释下啊帮我解释下这两句VB代码