wdjh.net
当前位置:首页 >> VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句 >>

VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句

配对情况如下:

在最后加上 end if 就行了 如果不行,仔细核对每一个if,看看有没有与其配对的end if if 和 end if 的数量必须配对

Private Sub Command1_Click()Dim i As Integer, l As Integer, r As IntegerDim chArray(40) As BytechArray = StrConv(Text1.Text, vbFromUnicode)For i = 0 To UBound(chArray) If Chr(chArray(i)) = "(" Then l = l + 1 If Chr(chArray(i)) ...

是由于if语法错误: 1、查看最后是否有endif 2、如果不行,仔细核对每一个if,看看有没有与其配对的end if

dim a as boolean for i = 1 to counts'通讯录数目 if count(i)=txtxingming.text then a=true exit for endif next if a=true then msgbox"已经存在,请重新输入" endif

把条件修改一下: 例如 not rs.bof or not rs.eof if not(rs.eof or rs.bof) then do white not rs.fields(0)=XPCombo1.text rs.movenext loop end if ClassReport.sections(4).controls("label15").caption=rs.fields(2)

Private Sub Command1_Click(Index As Integer) '0-9数字键 Text1.Text = Text1.Text & Index Text1.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) '阻止键盘输入,不过不知为什么没有用 KeyAscii = ...

不需要添加任何的控件,不需要修改代码,复制下运行,看看结果! Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then msgbox "您按了上键!" ElseIf KeyCode = vbKeyDown Then msgbox "您按了下键!" ElseIf ...

If InStr(1, Text2.Text, ".")

实时错误'3705',对象打开时,不允许操作 这句已经提示很明显了 你rs对象是打开了 if rs.state =1 then rs.close '这句话,就是在open前,先判断rs的状态 rs.Open sql, cn, 1, 1 '只读打开记录集 修改代码: Private Sub Command3_Click() '【保存...

网站首页 | 网站地图
All rights reserved Powered by www.wdjh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com