pb編程 中怎麽獲取數據窗口中顯示的列數

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)")

//如果是數值型，要轉換。