VB—代码片总结
前言自己从最开始接触的VB百例、红皮书、学生管理系统到前一段时间结束的机房收费系统。来给大家分享在机房收费系统的代码片段! - VB中的EOF与BOFEOF含义:当前记录位置位于Recordest对象的最后一个记录之后 - VB组合查询这里是自己在机房收费系统感觉有点乱的一部分,分享给大家看看! If Trim(comboField1.Text) = “” Or Trim(comsign1.Text) = “” Or Trim(txtContent1.Text) = “” Then
MsgBox “请将选项内容填写完整!”,vbOKOnly,“提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboField1.Text) & ” ” & comsign1.Text & “’” & Trim(txtContent1.Text) & “’”
If comboRelation1.Text <> “” Then
‘判断第一个组合关系是否选中
If comboField2.Text = “” Or comsign2.Text = “” Or txtContent2.Text = “” Then
‘如果选中,判断第二行内容是否填写完整,且符合要求
MsgBox “请将第二行选项内容填写完整!”,“提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboRelation1.Text) & ” ” & Change(comboField2.Text) & ” ” & comsign2.Text & “’” & Trim(txtContent2.Text) & “’”
‘将前两行的条件联系起来,完成SQL语句
If comboRelation2.Text <> “” Then
‘判断第二个组合关系是否选中
If comboField3.Text = “” Or comsign3.Text = “” Or txtContent3.Text = “” Then
‘如果选中,判断第二行内容是否填写完整,且符合要求
MsgBox “请将第三行选项内容填写完整!”,“提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboRelation2.Text) & ” ” & Change(comboField3.Text) & ” ” & Trim(comsign3.Text) & “’” & Trim(txtContent3.Text) & “’”
‘将三行的条件联系起来,完成SQL语句
在接触这么久的VB程序后发现自己用的最对的还是if语句,下面跟大家汇报下: If Condition Then Statement[Else statement]
2.If…Then…Else语句 If Condition1 Then
Statements
ElseIf Condition2 Then
Statements
[其他ElseIf子句及其相应的执行语句]
Else
Statements
End If
重点内容 Select Case Variable
Case Value1
Statements
Case Value2
Statements
Case Value3
Statements
...
End Select
Select Case”结构以关键字“Select case”开始,以关键字“End Select”结束。“Select Case”结构中的“Variable”可以是变量、属性或者是表达式,“Value1”、“Value2”,“Value3”可以是数值、字符串或与要测试的其他情况相关的其他值,如果其中某个值与变量相匹配,那么该“Case”子句下的语句被执行,然后Visual Basic执行“End Select”语句后面的语句。“Select Case”结构中可以使用任意多个“Case”子句,“Case”子句中也可以包括多个“Value”值,多个“Value”值之间使用逗号分隔。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |