热度 10||
(二)、多字段检索和全文检索
(三)、查询结果中记录的导出
我使用的是另一种方法,使用vb里的Excel.Application,这个对象可以直接把窗体里的内容复制到一个excel里,
具体如下:
exlpath = getFilepath(, "excel(*.xls)", "保存文件为xls", , False)
(这一段是调用一个函数,给用选择一个保存路径的选择,用户选择的路径保存在exlpath里)
(下面的代码网上有,大意是创建一个excel对象,读取表结构,把表结构拷贝至第一行,从A2单元格开始拷贝数据)
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()
Me.xiform.Form.Recordset.MoveFirst
For i = 0 To Me.xiform.Form.Recordset.Fields.Count - 1
oBook.Worksheets(1).Cells(1, i + 1).Value = Me.xiform.Form.Recordset.Fields(i).Name
Next
oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.xiform.Form.Recordset
oBook.SaveAs ("" & exlpath & "")
MsgBox "导出成功"
errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub
errit:
MsgBox "错误号为" & Err.Number & " 错误说明:" & Err.Description
End If
Resume errexit
仔细看了Excel.Application这个对象,好像和dde有点像,可以对导出的excel格式进行一些更为精确的实质。但实现起来真的有点麻烦。
(四)调用帮助文件:
Public Function help()
ShellExecute 0, "Open", "" & Application.CurrentProject.Path & "\help\help.chm", "", "", SW_SHOW
End Function
在菜单或按钮上调用就可以。
手机版|会员|至尊|接种|公卫人 ( 沪ICP备06060850号-3 )
GMT+8, 2024-5-16 13:33 , Processed in 0.058038 second(s), 8 queries , Gzip On, MemCached On.
Powered by Discuz! X3.4
© 2001-2023 Discuz! Team.