可用分押宝游戏火热进行中...	专题改版：Java Web 专题

散分了

楼主bruce2k（晓风明月）2005-08-01 18:06:20 在 PowerBuilder / 基础类提问

我想从数据库中检索出数据，在ole控件中以excel在界面上展示，哪位能提供方法？最好有代码
谢谢! 问题点数：50、回复次数：16Top

1 楼ghostagain（心情卡片）回复于 2005-08-01 18:31:15 得分 10

沙发了Top

2 楼ghostagain（心情卡片）回复于 2005-08-01 18:31:49 得分 0

我以为真散分呢原来回贴不看贴Top

3 楼ghostagain（心情卡片）回复于 2005-08-01 18:32:22 得分 0

搜索以下原来的帖子吧这方面的东东黑多的哈哈Top

4 楼balloonman2002（）回复于 2005-08-01 18:34:24 得分 5

做人要厚道Top

5 楼bruce2k（晓风明月）回复于 2005-08-02 08:36:39 得分 0

呵呵,不要生气嘛,各位帮帮忙Top

6 楼hangzhou6274（拉面贵了，馒头小了，领导知道吗？）回复于 2005-08-02 08:39:55 得分 5

一两句说不清楚,还是下载个例子看看吧
顺便提醒一下,写入EXCEL可以使用VBA编程.Top

7 楼j9dai（翔)(DoItNow）回复于 2005-08-02 08:56:06 得分 5

接分了Top

8 楼bruce2k（晓风明月）回复于 2005-08-02 09:56:25 得分 0

解决问题的人不多，接分的人不少，看来我是要结贴了Top

9 楼wscft（努力工作，开心生活!)）回复于 2005-08-02 10:03:13 得分 5

版内搜索搜索吧，这类问题见的多了Top

10 楼bruce2k（晓风明月）回复于 2005-08-03 08:54:10 得分 0

就是因为没有搜到适合本人的才问呀！Top

11 楼bruce2k（晓风明月）回复于 2005-08-04 16:21:07 得分 0

看来没人告诉我了，算了我还是自力更生吧，准备给分了Top

12 楼crtdak（云中鹤）回复于 2005-08-04 16:36:27 得分 10

这个问题以往有好多，楼主你搜索一下就一大把。Top

13 楼bruce2k（晓风明月）回复于 2005-08-04 16:50:23 得分 0

我碰到的问题是这样的,由于将多个电话号码保存在一个单元格中,因此我在从数据窗口中取得电话号后用","号分割,但是只有超过39个号码时,才正确的保存成我想要的格式,除此之外就全部都是科学记数法表示了,设置了单元格的格式后就变成了123,456,789这种了,不是我所想要的,我是想请大家帮我解决一下这个问题,代码如下

long l_row,excel_row,time_long,optr_id
decimal low_cost,most_cost
string get_sheet,sheet_bak,phone_tmp,phone_str,cust_name,charge_detail,note_str,enable_date
sheet_bak = ''
excel_row = 1
for l_row = 1 to dw_1.rowcount()
get_sheet = dw_1.getitemstring(l_row,'t_contract_sheet_id')
if get_sheet = sheet_bak then

phone_tmp = trim(dw_1.getitemstring(l_row,'t_phone_nbr_phone_nbr'))

phone_str = phone_str + ','+phone_tmp
ole_workbooks.cells(excel_row,9).value=phone_str
continue
else
excel_row ++
cust_name = trim(dw_1.getitemstring(l_row,'t_contract_cust_name'))
low_cost = dw_1.GetItemNumber(l_row,'t_contract_low_payment')
most_cost = dw_1.getitemnumber(l_row,'t_contract_most_payment')
enable_date = string(dw_1.getitemdatetime(l_row,'t_contract_enable_date'))
time_long = dw_1.getitemnumber(l_row,'t_contract_term_long')
optr_id = dw_1.getitemnumber(l_row,'t_contract_tran_optr')
charge_detail = dw_1.getitemstring(l_row,'t_contract_charge_detail')

note_str = dw_1.getitemstring(l_row,'t_contract_note')

phone_str = dw_1.getitemstring(l_row,'t_phone_nbr_phone_nbr')

ole_workbooks.cells(excel_row,1).value=cust_name
ole_workbooks.cells(excel_row,2).value=low_cost
ole_workbooks.cells(excel_row,3).value=most_cost
ole_workbooks.cells(excel_row,4).value=enable_date
ole_workbooks.cells(excel_row,5).value=time_long
ole_workbooks.cells(excel_row,6).value=optr_id
ole_workbooks.cells(excel_row,7).value=charge_detail
ole_workbooks.cells(excel_row,8).value=note_str
ole_workbooks.cells(excel_row,9).value=phone_str
end if
sheet_bak = get_sheet
next
ole_workbooks.SaveAs ("d:\data1.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooksTop

14 楼bruce2k（晓风明月）回复于 2005-08-05 09:01:46 得分 0

怎么就没有人回我的帖呢？看来确实要准备结贴了Top

15 楼hui_feng（盘桃2）回复于 2005-08-05 10:55:44 得分 10

UPTop

16 楼bruce2k（晓风明月）回复于 2005-08-05 23:00:48 得分 0

突来灵感自己搞定了，开心散分了！！！Top

散分了