|
||
|
0150 -- 数据窗口中各项指标的获取方法
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 = dw_1.Describe( "# "＋string(i)＋ ".name ")
str_column_text = dw_1.Describe(str_column ＋ "_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
对于一般类型的数据窗口，我们可以用这种办法：先为计算域取名，如“count_id”，取值过程如下（除了分组的数据窗口，一般计算域都用1）：
long ll_count_id
如果在detail区：ll_count_id = dw_1.getitemnumber(1,″count_id″)
如果在summary区：ll_count_id = dw_1.object.compute_1[1]
而对于复合报表，须先用GetChild()函数得到其中的report，再取此report中计算域的值。假设此 report name 为“report_department”（注意不要混淆report name 与子数据窗口本身的名字），计算域名为count_id，则取值过程如下：
DataWindowChild dwc_child
long ll_count_id
dw_1.GetChild(″report_department″
dwc_child)
ll_count_id = dwc_child.getitemnumber(1,″count_id″)