PowerBuilder取得巨大成就的原因就是有功能强大和灵活多变的Datawindow对象,本人用PowerBuilder开发过一段时间后,总结出一些技巧,以供广大的PB开发者借鉴使用。
1、 如何创建一个具有逐渐递增求和功能的报表,如下形式: Running Total列,我们可使用计算列:CumulativeSum(Quantity for all),即可达到逐渐递增求和的功能。
2、 数据窗口的数据送缓冲区之前确认的四个步骤 首先判断数据类型是否正确。如不正确则触发ItemError事件。 ItemError事件。 ItemChanged事件,如果数据和ItemChanged相斥,将触发ItemError事件。
3、如何在DataWindow中用数据类型为Datetime的列为条件进行查寻
(1) 当要查找的日期条件是一常数时使用如下表达式:
(2)当要查找的日期条件是一个变量时使用如下的表达式:
(3)要查找的日期条件是一个DateTime数据类型时使用如下表达式:
a、设置数据窗口Boolean型属性的三种方法 提供了三种方法设置数据窗口的布尔型属性,分别是True/False, 1/0, 'Yes'/'No'。例如: 在处理时以字符串的形式保存属性,而不考虑属性值是布尔型、长整型或是字符型。为了进一步理解,可以导出一个数据窗口并查看它的原码,可以发现即使是列的颜色属性它也是使用带双引号的数字来表达。
4、如何在数据窗口(Datawindow)中快速删除多行 在开发过程中可能经常有要进行多行删除的操作,一般都使用循环语句进行操作:
5、如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行 首先对你要显示唯一值的列进行排序:"money",然后增加如下过滤字符串:" money < > money [-1] or GetRow () = 1"
6、如何在分组形式的DataWindow中分别显示各组的行号
当我们为Datawindow的每一行显示行号时,可以简单的放一个表达式为GetRow()计算列。但是对于分组的Datawindow,要分别显示各组的行号,则应使用表达式为GetRow() - First(GetRow() for Group 1) 1的计算列。
7、如何改变列的字体颜色,以提醒用户此列已做修改
在列的Color属性中,输入如下表达式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在这个条件中,如果此列已改变,则显示红色字体,否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。
8、在数据窗口中移走行,但不是去做过滤或删除操作
函数可做到这一点,它在数据窗口中执行移除工作,但被移走的行它不可被删除或做任何修改性的保存。
9、如何在多行显示的DataWindow 中的Footer Band中显示当前数据的首行和最后行的行号 我们先看两个计算列的表达式的例子: 为当前页的第一行 为当前页的最后一行 由此例可知,在Footer Band中设置如下计算列表达式:'Rows ' String(First(GetRow() FOR Page)) ' to ' String(Last(GetRow() FOR Page)) ' are displayed'。即可达到这项功能。
1
Quantity Running Total
5,000 5,000
2,500 7,500
3,000 10,500
12,000 22,500
对于
2
如果我们不清楚数据窗口中的数据在送入缓冲区之前所发生的一切,在保存数据时就不明白错误发生的原因,找不出错误的根源。
PB
接着判断数据是否符合有效性规则。如不符合有效性规则,同样触发
然后判断是否有数据被改动。
最后判断数据是否通过
3
ls_Find = "datetime_col = DateTime ('1/1/1999')"
ls_Find = "datetime_col = DateTime ('" ls_Date "')"
ls_Find = "datetime_col = DateTime '" String (ldt_DateTime) "')"
4
PowerBuilder
dw_1.Object.address.Visible = 0
dw_1.Object.address.Visible = False
dw_1.Object.address.Visible = 'No'
PowerBuilder
5
FOR ll_RowOn = 1 TO dw_1.RowCount()
dw_1.DeleteRow(ll_RowOn)
NEXT
这里提供一个快速的删除方法把要删除的行从主缓冲区中移到删除缓冲区中。例如,删除缓冲区中所有的行:
dw_1.RowsMove(dw_1, 1, dw_1.RowCount,
Primary!, dw_1, 1, Delete!)
但需注意的是不要忘了过滤的行在不同的缓冲区中。
6
7
8
9
RowsDiscard()
10
IF (GetRow() = First(GetRow() FOR Page), 1, 0) // 1
IF (GetRow() < > 1 AND GetRow() = Last(GetRow() FOR Page), 1, 0)
// 1