Q5/ws_objects/xls_Billprint_win.pbl.src/f_xls_getcolumnlist.srf

$PBExportHeader$f_xls_getcolumnlist.srf
global type f_xls_getcolumnlist from function_object
end type

forward prototypes
global function s_xls_dwcolumnlist f_xls_getcolumnlist (datastore arg_ds)
end prototypes

global function s_xls_dwcolumnlist f_xls_getcolumnlist (datastore arg_ds);s_xls_dwcolumnlist s_col
Long rowcnt,i,cnt = 0
String tempstr,result,titlestr
//result = arg_ds.Describe("Datawindow.Objects")
//if isnull(result) or result = '' then return s_col
//rowcnt  = Long(arg_ds.Describe("datawidnow.column.count") )
//if isnull(arg_ds.Object ) then return s_col
//result = arg_ds.Object.DataWindow.Column.Count
//if isnull(result) or result = '!' or result = '?' then return s_col
rowcnt = Long(arg_ds.Object.DataWindow.Column.Count)
//	messagebox('',string(arg_ds.Object.DataWindow.Column.Count))

FOR i = 1 TO rowcnt
	tempstr = arg_ds.Describe('#' + String(i) + ".name")
	IF tempstr <> '!' AND tempstr <> '?' THEN
		cnt ++
		s_col.columnname[cnt] = tempstr
		s_col.column_dscrp[cnt] = '' 
		titlestr=arg_ds.Describe(tempstr+'_t.text')
		if titlestr <> '!' AND titlestr <> '?' THEN
			s_col.column_dscrp[cnt] = titlestr 
		end if		
		
	END IF
	
NEXT

//MessageBox(arg_ds.Describe('u_order_ml_ordercode_t.type') ,string(arg_ds.Object.DataWindow.dATA			 ))
//MessageBox('',arg_ds.Describe("DataWindow.Objects"))
RETURN s_col

end function