• 全部
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

为什么我从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
...全文
27 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xhbchina 2003-05-08
程序应该是不错的,8.0的测试后正常,你的版本是不是7.0的,7.0的会出现这种情况的.
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

863

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2003-05-08 04:51
社区公告
暂无公告