有以下这样的代码
If Len(Trim(DBCombo3.Text)) = 0 Then
MsgBox "开发商编号不能为空", 48, "提示"
DBCombo3.SetFocus
Exit Sub
End If
If Len(Trim(DBCombo4.Text)) = 0 Then
MsgBox "开发商名称不能为空", 48, "提示"
DBCombo4.SetFocus
Exit Sub
End If
我要把它写成函数的形式,每次使用时调用,应该怎样写呢!
If Len(Trim(DBCombo3.Text)) = 0 Then
MsgBox "开发商编号不能为空", 48, "提示"
DBCombo3.SetFocus
Exit Sub
End If
If Len(Trim(DBCombo4.Text)) = 0 Then
MsgBox "开发商名称不能为空", 48, "提示"
DBCombo4.SetFocus
Exit Sub
End If
我要把它写成函数的形式,每次使用时调用,应该怎样写呢!
If Len(Trim(DBCob.Text)) = 0 Then
MsgBox "开发商名称不能为空", 48, "提示"
DBCob.SetFocus
End If
End subcall checkComb(DBCombo3)
call checkComb(DBCombo4)
private sub aa(A as combobox, B as combobox)
If Len(Trim(a.Text)) = 0 Then
MsgBox "开发商编号不能为空", 48, "提示"
a.SetFocus
Exit Sub
End If
If Len(Trim(b.Text)) = 0 Then
MsgBox "开发商名称不能为空", 48, "提示"
b.SetFocus
Exit Subend sub
If Len(Trim(DBCob.Text)) = 0 Then
MsgBox "开发商" & strTemp & "不能为空", 48, "提示"
DBCob.SetFocus
End If
End subcall checkComb(DBCombo3,"开发商编号")
call checkComb(DBCombo4,"开发商名称")嘿嘿...
call checkComb(DBCombo4,"名称")
我按照死鬼过过提供的方法已经成功编写了函数,非常感谢,其实不只是编号、名称,下面还有十几项,但这个不重要。
程序在执行时有一个问题:
Public Sub CheckSpace(DBCom As DBCombo, str1)
If Len(Trim(DBCom.Text)) = 0 Then
MsgBox str1 + "²»ÄÜΪ¿Õ", 48, "Ìáʾ"
DBCom.SetFocus
Exit Sub
End If
End Sub
Private Sub Command5_Click()
Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
......
End Sub
我编写了函数,并在程序中调用,但是函数本身有一个Sub,控件里也有一个Sub,我要用Exit Sub
结束控件的Sub,但是这个命令只结束了函数的Sub,程序还是会继续。我该怎样写能够结束控件的
Sub,使程序暂停执行呢!
在线等待!!
...
end if '以后不是自动退出了过程?为什么还要加上Exit Sub??
End SubPrivate Sub Command5_Click()
Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
'而command控件调完该过程以后也自动退出了.
End Sub
Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
'command控件以下还有命令,必须使用END SUB结束,退出这个控件,否则程序还是会继续执行。
......
End Sub
If Len(Trim(DBCob.Text)) = 0 Then
MsgBox "开发商" & strTemp & "不能为空", 48, "提示"
DBCob.SetFocus
checkComb=true
else
checkComb=false
End If
End functionPrivate Sub Command5_Click()
Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
if checkComb(DBCombo3,"编号") then exit sub
End Sub