国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

^{<small id="6jgbm"></small>}

首頁 > 學院 > 開發設計 > 正文

用VB5.0從Recordset中打印列表

2019-11-18 17:47:12

字體：大中小

來源：轉載

供稿：網友

----VisualBasic所附帶的報表生成器-CrystalReports，功能強大，能完成大部分報表的制作。但在某些情況下，用CrystalReports卻很難作出報表來。例如，根據用戶輸入不同的過濾(Filter)條件，將產生不同的虛擬表，此時用CrystalReports制作報表就勉為其難了，在這種情況下，可使用VB提供的vbCritical vbOKOnly,"PrintError"
ExitSub
EndIf
MyRecordset.MoveFirst

DoUntilPrinter.CurrentY>FooterTopPosition

'Printthefieldsoftherecordsetinsequence
ForFieldNum=0ToMyRecordset.Fields.Count-1
Printer.PrintMyRecordset.Fields
(FieldNum).Name&_
":"&_
MyRecordset.Fields(FieldNum).Value
IfPrinter.CurrentY>FooterTopPositionThen
Printer.CurrentX=8
Printer.Print"Page:"&PageCounter
'創建多頁文檔
Printer.NewPage
PageCounter=PageCounter 1
EndIf
NextFieldNum

MyRecordset.MoveNext
IfMyRecordset.EOFThenExitDo
'在記錄之間空一行
Printer.Print""
Loop

'PrintthePagenumberasafooter
Printer.CurrentX=8
Printer.CurrentY=FooterTopPosition
Printer.Print"Page:"&PageCounter
'將輸出送到打印機
Printer.EndDoc
EndSub

----調用上述PrintRecordset通用過程相當方便，下面是通過cmdPrint按鈕的Click事件進行調用的一個實例：

PrivateSubcmdPrint_Click()
PrintRecordsetData1.Recordset
EndSub->

上一篇：VB6中動態設置報表結果

下一篇：在VB里巧用數據類型集合

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：宜君县| 屏山县| 云阳县| 平昌县| 南岸区| 青阳县| 红原县| 河北省| 海阳市| 永丰县| 建瓯市| 屏东市| 云南省| 衡东县| 甘南县| 荃湾区| 当雄县| 濮阳市| 永平县| 合肥市| 靖边县| 获嘉县| 韩城市| 邢台市| 嘉义市| 博湖县| 临沭县| 亳州市| 霍林郭勒市| 富平县| 无极县| 西充县| 鄂伦春自治旗| 长顺县| 延寿县| 恩施市| 杂多县| 临海市| 昭平县| 鄂伦春自治旗| 饶河县|

<small id="2pfnv"><tbody id="2pfnv"><dfn id="2pfnv"></dfn></tbody></small>