string ls_filename,ls_name,ls_docname
long ll_value
//打开另存为输入框
ll_value = GetFileSaveName("文件另存为",ls_docname,ls_name,
"XLS","Excel Files (*.XLS),*.XLS")
IF ll_value = 1 THEN
ls_filename = trim(ls_name)
END IF
if ls_filename='' then return
//dw_1数据窗口的数据就导出到ls_filename这个文件里
dw_1.SaveAs(ls_filename,HTMLTable!, TRUE)
02-16
11-13