查詢(xún)后選擇字段導(dǎo)出示例
時(shí)間：2013-07-22 11:17 來(lái)源：office中國(guó) 作者：老漢 閱讀：次
軟件類(lèi)型：國(guó)產(chǎn)軟件
授權(quán)方式：共享軟件
界面語(yǔ)言：簡(jiǎn)體中文
軟件大�。�未知
文件類(lèi)型：.exe
運(yùn)行環(huán)境：Win2003,WinXP,Win2000,Win9X
軟件等級(jí)：★★★☆☆
發(fā)布時(shí)間：2013-07-22
插件情況：
下載次數(shù)：
下載次數(shù)：
軟件介紹：
我們需要根據(jù)篩選出來(lái)的數(shù)據(jù)進(jìn)行導(dǎo)出打印，Access自帶的宏 outputto 遠(yuǎn)遠(yuǎn)不能滿(mǎn)足要求。
此時(shí)需要vba來(lái)控制導(dǎo)出了。更有甚者，我們需要根據(jù)需要導(dǎo)出我們的需求字段。
導(dǎo)出一個(gè)表或者查詢(xún)中的部分?jǐn)?shù)據(jù)到EXCEL表中，其方法也有很多。
下面介紹的一個(gè)是通用函數(shù)，可在任意窗體調(diào)用使用。
Private Function GetSql(ByVal OpA As String, listctrl As ListBox) As String
'功能：返回SQL字符串
'參數(shù)：OpA -- Me.OpenArgs (寫(xiě)為：me.name & "子窗體控件名稱(chēng)")
' listctrl--存放所選字段的ListBox控件
Dim frm As Form
Dim A
Dim ssql As String, tb As String, wh As String
Dim i As Long
If listctrl.ListCount > 0 Then
A = Split(OpA, ";")
Set frm = Forms(A(0)).Controls(A(1)).Form
tb = Replace(frm.RecordSource, ";", "") 'From子句部分
wh = "True "
If Nz(frm.Filter, "") <> "" Then
wh = wh & " and " & frm.Filter 'Where子句部分
End If
ssql = "select "
For i = 0 To listctrl.ListCount - 1
ssql = ssql & listctrl.Column(0, i) & "," '拼接Select子句部分
Next
ssql = Left(ssql, Len(ssql) - 1) 'select子句部分
ssql = ssql & " from (" & tb & ") where " & wh
Else
ssql = ""
End If
GetSql = ssql
End Function
此時(shí)需要vba來(lái)控制導(dǎo)出了。更有甚者，我們需要根據(jù)需要導(dǎo)出我們的需求字段。
導(dǎo)出一個(gè)表或者查詢(xún)中的部分?jǐn)?shù)據(jù)到EXCEL表中，其方法也有很多。
下面介紹的一個(gè)是通用函數(shù)，可在任意窗體調(diào)用使用。
Private Function GetSql(ByVal OpA As String, listctrl As ListBox) As String
'功能：返回SQL字符串
'參數(shù)：OpA -- Me.OpenArgs (寫(xiě)為：me.name & "子窗體控件名稱(chēng)")
' listctrl--存放所選字段的ListBox控件
Dim frm As Form
Dim A
Dim ssql As String, tb As String, wh As String
Dim i As Long
If listctrl.ListCount > 0 Then
A = Split(OpA, ";")
Set frm = Forms(A(0)).Controls(A(1)).Form
tb = Replace(frm.RecordSource, ";", "") 'From子句部分
wh = "True "
If Nz(frm.Filter, "") <> "" Then
wh = wh & " and " & frm.Filter 'Where子句部分
End If
ssql = "select "
For i = 0 To listctrl.ListCount - 1
ssql = ssql & listctrl.Column(0, i) & "," '拼接Select子句部分
Next
ssql = Left(ssql, Len(ssql) - 1) 'select子句部分
ssql = ssql & " from (" & tb & ") where " & wh
Else
ssql = ""
End If
GetSql = ssql
End Function
頂一下
(4)
100%
踩一下
(0)
0%
下載地址：
注意事項(xiàng)：
☉推薦使用第三方專(zhuān)業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個(gè)軟件總是不能下載的請(qǐng)點(diǎn)擊報(bào)告錯(cuò)誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請(qǐng)過(guò)一段時(shí)間重試！
☉如果遇到什么問(wèn)題，請(qǐng)到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請(qǐng)購(gòu)買(mǎi)正版。
相關(guān)軟件
最新軟件
推薦軟件