数据窗口中各项指标的获取方法

http://www.51pb.com/viewthread.php?tid=1005&extra=page%3D6

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