Question

麻烦帮我把这代码重点位置解释一下

Dim sqlstr As String定义radomchar为字符串变量
Private Sub Command1_Click()
Dim a As String
Dim KCCX1 As String定义KCCX1为字符串变量
Dim KCCX2 As String定义KCCX2为字符串变量
Dim str1 As String定义strl为字符串变量
Dim str2 As String定义strl为字符串变量

If Option3.Value = True Then
a = Trim(Combo2)
Select Case a
Case "="
KCCX1 = "" & Combo1.Text & " " & Combo2.Text & " '" & Trim(Text1) & "'"
Case "like"
KCCX1 = "Instr(1," & Combo1.Text & ",'" & Trim(Text1.Text) & "')<>0 "
End Select

a = Trim(Combo4)
Select Case a
Case "="
KCCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"
Case "like"
KCCX2 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "
End Select

If Option1.Value = True Then
If KCCX1 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX2
ElseIf KCCX2 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX1
Else
strTiaoJian = "select * from 课程表 where " & KCCX1 & "and " & KCCX2
End If
ElseIf Option2.Value = True Then
If KCCX1 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX2
ElseIf KCCX2 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX1
Else
strTiaoJian = "select * from 课程表 where " & KCCX1 & "or " & KCCX2
End If
Else
If KCCX1 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX2
ElseIf KCCX2 = "" Then
strTiaoJian = "select * from 课程表 where " & KCCX1
Else
MsgBox "请选择连接方式！", vbOKOnly, "警告"
Exit Sub
End If
End If
重点位置解释一下就行。。谢谢。。

Answer 1

你觉得哪个算重点位置 =。=

这段看来就是条件语句比较多，应该算重点吧

Select case a

case "="

还有 if elseif else了