PB编程技巧二则在线教程

PB编程技巧二则 

在PB编程中，我们经常需要应用一些小的技巧，如：使数据窗口每页打印固定行、在系统中嵌入Excel对象等。下面，笔者将结合实际介绍这些小的技巧应用。

一、页面的精确打印

关于数据窗口每页打印固定行的问题：

1.增加一个计算列,此计算列必须放在Detail段的Exdivssion中输入:

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平台上运行通过。