为什么我要点击两次清除按扭，才可以把文本框的内容清除掉？

goto2008

为什么我要点击两次清除按扭，才可以把文本框的内容清除掉？

[ 本帖最后由 goto2008 于 2007-8-28 09:04 编辑 ]

一点通

经测试, 一次可以清除

goto2008

大哥，，你输入查询的条件，，
然后点击“查询”按扭，，，，
、、、
查询出来后
再点击“清除”按扭。。它会先恢复子窗体的所有记录
再点击“清除”按扭，它才会把主窗上的文本框内容都清除。。。。。

goto2008

就是如何让清除按扭起到同时恢复子窗体所有记录，也可以同时把文本框的内容都清除掉

hi-wzj

Private Sub 清除_Click()
On Error GoTo Err_清除_Click
      '让子窗体应用窗体查询
    Me.冲床补贴代扣子窗体.Form.Filter = strWhere
    Me.冲床补贴代扣子窗体.Form.FilterOn = True
     
     Me.领取日期 = Null
      Me.冲工编号 = Null
       Me.冲床工人 = Null
      
    Me.上月余留 = Null
    Me.老员工补贴 = Null
    Me.报到补贴 = Null
    Me.房租补贴 = Null
    Me.奖励 = Null
   
    Me.借支 = Null
    Me.厂牌 = Null
    Me.水电 = Null
    Me.厂服 = Null
    Me.罚款 = Null
   
Exit_清除_Click:
    Exit Sub

Err_清除_Click:
    MsgBox err.Description
    Resume Exit_清除_Click
   
End Sub

hi-wzj

问题出在当您让子窗体应用窗体查询时，会激发子窗体中“成为当前”的事件，从而执行对主窗体赋值的命令。现将执行代码的位置做个调换，先执行子窗体部分再执行清空主窗体控件值的命令就正常了。

goto2008

谢谢hi-wzj大哥。。。。。。可以了！

hi-wzj

当代码出现问题时，您可在代码中设置断点（光标放要停止的代码处，然后按F9），当程序运行到断点处将停止运行，这时系统处在调试状态，您可用鼠标放变量上看变量的值是否正常，也可按F8单步运行看运行效果是否符合您的要求，是否会执行您没想到的程序。

goto2008

哦，谢谢hi-wzj大哥提醒。。