为什么我从excel中导入dw的中文字符会被截取了? 急在线等。。。

shadowno 2003-05-08 04:51:47
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if

xlApp.Application.Workbooks.Open(ls_filepath)
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
integer li_Dislb
any la_Ddm,la_Dmc,la_Dyjyears,la_Ddw
string ls_value,ls_newdm
long li_dwrow
For r = 2 to 898
la_Ddm =xlsub.cells[r,1].value // 字符行数值
la_Dmc =xlsub.cells[r,2].value // 中文字段,这里到数据窗口就被截取了。
li_Dislb = 1
la_Ddw = xlsub.cells[r,3].value
la_Dyjyears = xlsub.cells[r,4].value

dw_1.setredraw(false)
li_dwrow = dw_1.insertrow(0)
dw_1.setitem(li_dwrow,'dm',trim(la_Ddm))
dw_1.setitem(li_dwrow,'mc',trim(la_Dmc))
dw_1.setitem(li_dwrow,'islb',li_Dislb)
dw_1.setitem(li_dwrow,'yj_years',double(la_Dyjyears))
dw_1.setitem(li_dwrow,'dw',la_Ddw)
st_1.text = '正在操作:'+'excel[' +string(r)+ '] dw='+string(li_dwrow)
dw_1.setredraw(true)
if r = 50 then
exit
end if
Next

xlApp.DisConnectObject()
Destroy xlapp
...全文
72 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xhbchina 2003-05-08
  • 打赏
  • 举报
回复
程序应该是不错的,8.0的测试后正常,你的版本是不是7.0的,7.0的会出现这种情况的.

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧