pb中怎么获取数据窗口的列名

pb中怎么获取数据窗口的列名

2009年04月18日 星期六 16:27

Getcolumn 得到的是当前powerobject的字段的数量。 调用语法: getcolumns ( powerobject apo_data, ref string as_columns[], ref string as_error ) Int li_colcount,i //取列数 Choose Case TypeOf(apo_data)          Case datawindow!                    uo_datawindow_cics ldw                    ldw = apo_data                    li_colcount = Integer(ldw.Describe("DataWindow.Column.Count"))          Case datawindowchild!                    datawindowchild ldwc                    ldwc = apo_data                    li_colcount = Integer(ldwc.Describe("DataWindow.Column.Count"))          Case datastore!                    uo_datastore_cics lds                    lds = apo_data                    li_colcount = Integer(lds.Describe("DataWindow.Column.Count"))          Case Else                    as_error = '调用GetColumns时入参错误：powerobject的类型不正确'                    Return -1 End Choose If Not li_colcount > 0 Then          as_error = '取数据窗口的列数不成功！'          Return -1 End If   //取列名 String columnnames[],ls_colname For i = 1 To li_colcount          Choose Case TypeOf(apo_data)                    Case datawindow!                             ls_colname = ldw.Describe("#" + String(i) +".Name")                    Case datawindowchild!                             ls_colname = ldwc.Describe("#" + String(i) +".Name")                    Case datastore!                             ls_colname = lds.Describe("#" + String(i) +".Name")          End Choose                   If IsNull(ls_colname) Or ls_colname = '?' Or ls_colname = '!' Then                    as_error = '调用GetColumns,取数据窗口的列名称不成功：'+String(i)                    Return -1          End If          as_columns[i] = Upper(ls_colname) Next