人事管理系統(tǒng)分析報(bào)告-資料下載頁
2025-08-03 08:52本頁面
【正文】 t = (39。39。)if li_ret 0 then li_ret = (39。39。) if li_ret 0 then MessageBox(39。OLE錯(cuò)誤39。,39。OLE無法連接，請返回重試！39。) end if = falseend if() = truelong i, j, ll_cols, ll_TargetRow,kstring ls_colname, ls_title //列名，列標(biāo)題string ls_data, ls_syntax //數(shù)組記錄各顯示列的值，取各列string array_title[], array_col[] //以數(shù)組記錄非隱藏列的列標(biāo)題string ls_xzb //X坐標(biāo)string ls_x[]ll_cols = Long(()) //記錄總列數(shù)xlsub = [1]//得到顯示字段的列標(biāo)題和坐標(biāo)for i = 1 to ll_cols ls_xzb = ( + String(i) + .x) if ls_xzb 39。!39。 and ls_xzb 39。?39。 then ls_colname = ( + String(i) + .name) + _t ls_title = (ls_colname + .text) k++ array_title[k] = ls_title //記錄其列標(biāo)題 array_col[k] = ( + String(i) + .name) ls_x[k] = ls_xzb end ifnext//按坐標(biāo)值從小到大進(jìn)行冒泡排序string ls_tempfor i = 1 to upperbound(ls_x) 1 for j = i + 1 to upperbound(ls_x) if long(ls_x[i]) long(ls_x[j]) then //列標(biāo)題 ls_temp = array_title[i] array_title[i] = array_title[j] array_title[j] = ls_temp //列名 ls_temp = array_col[i] array_col[i] = array_col[j] array_col[j] = ls_temp //X坐標(biāo) ls_temp = ls_x[i] ls_x[i] = ls_x[j] ls_x[j] = ls_temp end if nextnext//顯示標(biāo)題帶if upperbound(array_title) 0 then for i = 1 to upperbound(array_title) (1, i).Value = array_title[i] (1, i). = 1 nextend iflong ll_total,ll_pos//輸出各顯示列的值ll_total = ()ll_TargetRow = 1for i = 1 to ll_total ll_TargetRow ++ ll_pos = i// showprgressbar(ll_pos,ll_total,39。正在生成數(shù)據(jù)，請稍等...39。)for j = 1 to upperbound(array_title)ls_syntax = Evaluate(39。LookUpDisplay( + array_col[j] + )39。, + String(i) + )ls_data = String((ls_syntax)) //取列的值 [ll_TargetRow,j] = ls_data [ll_TargetRow,j]. = 1 nextnext//將標(biāo)題帶灰顯(1:1).Select = 1 = 15(H8).Select//灰顯完畢()Destroy ole_excel參考文獻(xiàn)1．崔巍 編著，《》清華大學(xué)出版社2．王守華 盧嘉 編著，《》清華大學(xué)出版社3．王冠科技 編著，《》機(jī)械工業(yè)出版社4．閃四清 編著，《SQL Server 2000系統(tǒng)管理指南》清華大學(xué)出版社22 / 22
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1