1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
DataEnvironment1.rsCommand1.Open "exec _bb_drwancheng" ---- 调试到这一行就报错。。。。
If DataEnvironment1.rsCommand1.RecordCount > 0 Then
DataReport1.Show 1
Else
MsgBox "此日期段没有记录,请重新选择!", vbOKOnly
DataEnvironment1.rsCommand1.Close
End If
End Sub