if dw_1.rowcount() < 1 then
MessageBox(gs_mess,'没有数据，无需转存！')
else
string ls_docname, ls_named //文件路径，文件名
integer li_rt
li_rt = GetFileSaveName("选择保存路径并输入保存文件名 ", ls_docname, ls_named, &
"Excel", &
"Excel Files (*.XLS),*.XLS," + &
" TXT Files (*.TXT),*.TXT")
if li_rt = 1 then //转存
f_SaveToExcel(dw_1, ls_named)
end if
end if