在线等，，，高手进来帮忙

[naka]

Private Sub OUT_CLICKED()
OpenDlg.ShowOpen
fnum = FreeFile
file_name = OpenDlg.FileName
On Error GoTo MiscError

Open file_name For Output As fnum
strsql="select * from weihu where name='"& waiwainame &"'"
Set rs = cm.OpenResultset(strsql, 1, , 64)


Do While Not rs.EOF
num_processed = num_processed + 1

Print #fnum, b10
rs.MoveNext
Loop
rs.Close
Close fnum
MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close
Exit Sub

MiscError:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description

End Sub

把一个查询结果导成文本文件，其中，OpenDlg为commondialog控件
问题：为何在我导第一次是对的，导完后直接再导一次就会出错？
是不是commondialog控件需要关闭或什么的？

[danielinbiti]

MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close
Close #fnum
Exit Sub

• 打赏
• 举报

回复 赞

[truewill]

会不会是num_processed 没有初始化

• 打赏
• 举报

回复 赞

[faysky2]

MsgBox "成功导出了 " & Format(num_processed) & " 条记录."
cm.Close ' <------------把这句去掉再试
Exit Sub

• 打赏
• 举报

回复 赞