散分了

[bruce2k]

我想从数据库中检索出数据，在ole控件中以excel在界面上展示，哪位能提供方法？最好有代码
谢谢!

[老板卤两个蛋蛋]

沙发了

[老板卤两个蛋蛋]

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

[老板卤两个蛋蛋]

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

[balloonman2002]

做人要厚道

[bruce2k]

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

[hangzhou6274]

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

[j9dai]

接分了

[bruce2k]

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

[wscft]

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

[bruce2k]

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

[bruce2k]

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

[crtdak]

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

[bruce2k]

我碰到的问题是这样的,由于将多个电话号码保存在一个单元格中,因此我在从数据窗口中取得电话号后用","号分割,但是只有超过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_workbooks

[bruce2k]

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

[hui_feng]

UP

[bruce2k]

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