帮我看一下下面的几行代码

[ymlazy28]

下面的程序在msgbox 弹出的窗口未处理之前是不会执行IF语句块的.
MsgBox "kk"
If deleteid <> "" Then
dgemployee.delete (deleteid)
End If

再看一下下面的程序, 现在我也想在form1 按一下其中的某一个按钮时再执行if语句块,应该怎样做?
form1.show
If deleteid <> "" Then
dgemployee.delete (deleteid)
End If

[ymlazy28]

不是很复杂吧，　其实此问题就是源于用窗体来模仿ＭＳＧＢＯＸ　而已

[leolan]

'用自己的過程代替form_load事件
public sub formshow()
form1.show
If deleteid <> "" Then '當觸發command1_click事件之後運行這段代碼
dgemployee.delete (deleteid)
End If
end sub

private sub command1_click()
unload me
end sub

[踏平扶桑]

你把下面的代码放到你要按的那个控件里的click事件中就行了
比如：
Private Sub Form_Click()
If deleteid <> "" Then
dgemployee.delete (deleteid)
End If
End Sub

[Chice_wxg]

form1.show 1

[ryuginka]

up

[ymlazy28]

toChice_wxg()
高手就是高手.
基础牢固!

[ymlazy28]

up

[ymlazy28]

MsgBox "kk"
If deleteid <> "" Then
dgemployee.delete (deleteid)
End If
上面的程序在msgbox 弹出的窗口未处理之前是不会执行IF语句块的.


再看一下下面的程序, 现在我也想在form1 按一下其中的某一个按钮时再执行if语句块,应该怎样做?
form1.show
If deleteid <> "" Then
dgemployee.delete (deleteid)
End If

[gdami]

你把下面那几句做到按钮里面去不行。

干嘛把他搞复杂呢。