MsgBox问题

sncelpl 发布于 2022-05-04 11:49， 1650 次点击

lsRS.AddNew
            For i = 0 To 52
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
   MsgBox ("确定打印吗"), vbOKCancel, " 提示"
DataReport.DataMember = "Command2"
        Unload DataEnvironment
        DataReport.Show
While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
我怎么写，点确定就打印，点取消就返回

3 回复

约定的童话2022-05-04 11:54

If MsgBox("是否打印?", vbYesNo) = vbYes Then
'打印
End If

sncelpl2022-05-04 12:02

唉，我把end if 放到打印前了
才学不久

独木星空2022-05-05 18:53

回复楼主 sncelpl

自己遇到的问题自己最清楚，专家一点即通。但是对于一个没有介入此问题的人来说，无论是提的问题，还是给的答案，都不甚清楚。