没有合适的资源?快使用搜索试试~ 我知道了~
介绍在PowerBuilder数据窗口中各项指标的获取方法,文中提供使用案例,可直接使用
资源推荐
资源详情
资源评论
PB 数据窗口中各项指标的获取方法
1、得到当前鼠标所指对象所在的带区
string str_band
str_band=GetBandAtPointer() //得到当前鼠标所指对象所在的带区
str_band=left(str_band,(pos(str_band,'~t') - 1))// 得
到"header"、"detail"等
if str_band<>'header' then return //单击非头区,退出
2、得到鼠标指向的列对象名
str_object=GetObjectAtPointer() //得到当前鼠标所指对象名
str_object=left(str_object,(pos(str_object,'~t') - 1))
//得到列对象名(默认为列名_t 为列标题)
str_column=left(str_object,(len(str_title) - 2))
//判断该名称是否为列名字
if this.describe(str_column+".band")='!' then return //非是列名,即列
标题不是按正常规律起名的。
3、得到当前行、列,总行、列 //this 针对数据窗口而言
li_col = this.GetColumn()
li_ColCount = long(describe(this,"datawindow.column.count"))
ll_row = this.GetRow()
ll_RowCount = this.RowCount()
//设置当前行、列
scrolltorow(this,ll_Row)
setrow(this,ll_Row)
setcolumn(this,li_col)
this.SetFocus()
4、得到所有列标题
ll_colnum = Long(dw_1.object.datawindow.column.count)
for i = 1 to ll_colnum
//得到标题头的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
next
5、如何用代码取得数据窗口汇总带计算列的值?
String ls_value
ls_value = dw_1.Describe("Evaluate("'compute_1',1)")
//如果是数值型,要转换。
6、取得单击的列标题、列名、数据库字段名
string ls_dwo
long ll_pos
string ls_type
string ls_title
string ls_column
string ls_dbname
if Not KeyDown(KeyControl!) then return
ls_dwo = dwo.Name
if trim(ls_dwo) = '' or isnull(ls_dwo) then return
ls_type = This.describe(ls_dwo + '.type')
if ls_type = 'column' then
ls_title = This.describe(ls_dwo + '_t.text')//标题
ls_column = This.describe(ls_dwo + '.Name') //数据窗口列名
ls_dbname = This.describe(ls_dwo + '.dbname') //数据库中字段
名
messagebox('信息', '标 题 文 本 :' + ls_title + &
'~r~n 数据窗口列名 :' + ls_column + &
'~r~n 数据库中字段名:' + ls_dbname )
end if
7、窗口为 w_gcde 内,放入一个 DW_1,如何得到 dw_1 内的某列值
yuonghu_id 列的内容
long lng_column_count
integer i
string str_column[] //列名
string str_column_text[] //text 的名字
//得到数据窗口的总列数
lng_column_count =
long(dw_1.Describe("DataWindow.Column.Count"))
//循环依次读取
for i = 1 to lng_column_count
str_column[i] = dw_1.Describe("#"+string(i)+".name")
str_column_text[i] = dw_1.Describe(str_column[i] + "_t.text")
next
8、定义要打印的页码
dw_1.Modify("DataWindow.Print.Page.Range='"+sle_1.text+"'")
dw_1.print()
9、取到当前是第几页
dw_1.describe("evaluate('page()',"+string(dw_1.getrow())+")")
//注意返回值是 STRING 型的
10、每 15 行统计一次
在 summary 栏中写 ceiling(Getrow()/15)
11、如何判断当前行是不是当前页中的最后一行
if
dw_1.getrow()=long(dw_1.describe("datawindow.lastrowonpage")) then
else
end if
剩余12页未读,继续阅读
资源评论
TG692566
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功