If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized The

[wangdingh]

'刷新表格
Public Sub RecordRefresh()
    '设置msSql
    msSql = msSelect & msTableName & " where kqdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and kqdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy
        
    '显示数据
    msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
    ShowData
    sOrder0 = "+ {kqdate}"
    sOrder1 = ""
    
End Sub

请教 实时错误91 If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then

[赵4老师]

注释掉所有On Error Resume Next语句，在VB6 IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。

[wangdingh]

多谢! 效果很好,程序顺利跳过此错误 ,
.crptPrint 方法未找到或数据成员 请教...

'计发基本工资
Public Sub WageOne()
    
    Dim sSql As String
    
 On Error GoTo myErr
    With fMainForm
   '设置菜单和工具条
        ' .mnufile.Enabled = False
        ' .mnuRecord.Enabled = False
        ' .mnuMan.Enabled = False
        ' .mnuBonus.Enabled = False
        ' .mnuCar.Enabled = False
        ' .mnuMater.Enabled = False
        ' .mnuWork.Enabled = False
       ' .mnuWindow.Enabled = False
        ' .mnuSysEdit.Enabled = False
       '  .mnuPreview.Enabled = False
       '  .mnuPrint.Enabled = False
       '  .mnuWage.Enabled = False
      '   .tbToolBar.Enabled = False
        
    End With
    
    With fMainForm.crptPrint
   
        '设定连接串
        .Connect = gsCon
        '设定打印的报表文件
        .ReportFileName = App.Path & "\rpt\one.rpt"
        
        '排序
        .SortFields(0) = sOrder0
        .SortFields(1) = sOrder1
                
        '指定打印的记录数
        sSql = msSql
        .SQLQuery = Left(sSql, InStr(1, sSql, "order by") - 2)
        .PrinterStartPage = 0
        .PrinterStopPage = -1
        .CopiesToPrinter = 1
        '设定打印预览窗口为frmPreview的子窗体
        .WindowParentHandle = frmPreview.hWnd
        frmPreview.Show

        '设定打印的方式
        
        .Destination = PREVIEWMODE
        .Action = PREVIEWMODE
    End With
    
myErr:
    ShowError
End Sub