[Pb]获取列名

 long ll_column_count,ll_i
 string ls_column,ls_column_name,is_name_array,is_dbname_array
 

 ll_column_count = long(dw_detail.Describe("DataWindow.Column.Count")) //总列数
 
 for ll_i = 1 to ll_column_count
   if dw_detail.Describe("#"+string(ll_i)+".Visible") = '1' then
     ls_column = dw_detail.Describe("#"+string(ll_i)+".Name") //列名
        is_name_array = is_name_array + ":" +  ls_column
         is_dbname_array = is_dbname_array  + ":" + dw_detail.Describe("#"+string(ll_i)+".dbName")
  End If 
 next
 MessageBox("",is_name_array)
 MessageBox("",is_dbname_array)