|
|
PowerBuilder数据窗口编程技巧十则 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
PowerBuilder数据窗口编程技巧十则 蔡伟龙 |
01-6-25 下午 05:40:23
|
PowerBuilder取得巨大成就的原因就是有Datawindow对象,DataWindow是具有功能强大和灵活多变的特点,本人用PowerBuilder开发过一段时间后,,总结出一些技巧,以供广大的PB开发者借鉴使用。 |
对于Running Total列,我们可使用计算列:CumulativeSum(Quantity for all),即可达到逐渐递增求和的功能。 |
二.数据窗口的数据送缓冲区之前确认的四个步骤判断数据类型是否正确。如不正确则触发ItemError事件。判断数据是否符合有效性规则。如不符合有效性规则,同样触发ItemError事件。 判断是否有数据被改动。判断数据是否通过ItemChanged事件,如果数据和ItemChanged相斥,将触发ItemError事件。 |
三.如何在DataWindow中用数据类型为Datetime的列为条件进行查找 |
2.当要查找的日期条件是一个变量时使用如下的表达式: |
ls_Find = "datetime_col = DateTime ('" + ls_Date + "')" |
3.当要查找的日期条件是一个DateTime数据类型时使用如下表达式: |
ls_Find = "datetime_col = DateTime ('" + String (ldt_DateTime) + "')" |
PowerBuilder提供了三种方法设置数据窗口的布尔型属性,分别是True/False, 1/0, 'Yes'/'No'。例如: |
dw_1.Object.address.Visible = 0 dw_1.Object.address.Visible = False dw_1.Object.address.Visible = 'No' |
PowerBuilder在处理上以字符串的形式保存属性,而不考虑属性值是布尔型、长整型或是字符型。为了进一步理解,可以导出一个数据窗口并查看它的原码,可以发现即使是列的颜色属性它也是使用带双引号的数字来表达。 |
在开发过程中可能经常有要进行多行删除的操作,一般都使用循环语句进行操作: |
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!) |
六.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行 |
起先对你要显示唯一值的列进行排序:"city A",然后增加如下过滤字符串:" city < > city [-1] or GetRow () = 1" |
七.如何在分组形式的DataWindow中分别显示各组的行号 |
当我们为Datawindow的每一行显示行号时,可以简单的放一个表达式为GetRow()计算列。但是对于分组的Datawindow,要分别显示各组的行号,则应使用表达式为GetRow() - First(GetRow() for Group 1) + 1的计算列。 |
IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。 |
在这个条件中,如果此列已改变,则显示红色字体,否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。 |
RowsDiscard()函数可做到这一点,它在数据窗口中执行移除工作,但被移走的行它不可被删除或做任何修改性的保存。 |
十.如何在多行显示的DataWindow 中的Footer Band中显示当前数据的首行和最后行的行号 |
IF (GetRow() = First(GetRow() FOR Page), 1, 0) // 1 为当前页的第一行 |
IF (GetRow() < > 1 AND GetRow() = Last(GetRow() FOR Page), 1, 0) // 1 为当前页的最后一行 |
由上面可知,在Footer Band中设置如下计算列表达式: |
'Rows ' + String(First(GetRow() FOR Page)) + ' to ' + String(Last(GetRow() FOR Page)) + ' are displayed'。 |

|
|
相关文章:相关软件: |
|