PB编程技巧二则
作者：不详 文章来源：安全中国 点击数： 更新时间：2006-8-4 23:26:27
在PB编程中，我们经常需要应用一些小的技巧，如：使数据窗口每页打印固定行、在系统中嵌入Excel对象等。下面，笔者将结合实际介绍这些小的技巧应用。
一、页面的精确打印
关于数据窗口每页打印固定行的问题：
1.增加一个计算列,此计算列必须放在Detail段的Expression中输入:
ceiling(getrow()/20)
//这里20还可以用全局函数取代，这样可以允许用户任意设置每页打印多少行。
2.定义分组,选择选单“Rows->Create Group...”，并按计算列字段分组。最后一定将“check box-->New Page On Group Break”选中。
3.将此计算列设为不可视。
另外，如果需要最后一页不足补空行。也很简单，程序如下：
long ll_pagerow = 10
//每页打印行数
long ll_count, ll_row
ll_count = dw_report.retrieve(...) //取得现有报表的总行数
ll_count = ll_pagerow - mod(ll_count, ll_pagerow)
If ll_count < ll_pagerow Then
for ll_row = 1 to ll_count
dw_print.insertrow(0)
//补足空行
next
end If
二、如何嵌入Excel对象
在进行程序开发时，有时会需要将PowerBuilder与Excel应用程序结合使用，如将数据检索出来后，按照格式要求，将数据转入到Excel表格中。实现步骤如下：
1.创建并连接对象：
oleobject loo_excel
oleobject loo_sheet
loo_excel=create oleobject
loo_excel.ConnectToNewObject("Excel.Application")
//设置缺省的字体与大小
loo_excel.Application.StandardFont = "Arial Narrow"
loo_excel.Application.StandardFontSize = "8"
loo_excel.Application.Workbooks.Add()
loo_sheet=loo_excel.Application.Workbooks(1).worksheets(1)
loo_excel.Application.Visible=true
loo_excel.Application.ScreenUpdating = false //屏蔽可见属性
2.调用Excel本身的属性，函数，通过数据窗口填写数据到Excel：
loo_excel.Application.ScreenUpdating = true //设置可见属性
3.断开连接并释放对象：
loo_excel.DisconnectObject()
//注：建议引用API函数，捕获Handle。
destroy loo_excel
以上程序已在PB6.0、Windows 98平台上运行通过。
- 网友评论：（评论内容只代表网友观点，与浩扬网络立场无关！）
-
