＋设为首页 ＋添加到收藏夹
我将数据窗口的数据保存到word2000,怎么只得到数据的表格啊，而里面的数据却是空的阿！？？？
constant integer pplayoutbank = 12
OLEObject ole_object
ole_object = create OLEObject
if ole_object.ConnectToNewObject("Word.Application") <> 0 then
MessageBox("OLE错误！","OLE无法连接！")
return
end if
ole_object.Visible = true
long ll_colnum,ll_rownum
constant long wdWord9TableBehavior = 1
constant long wdAutoFitFixed = 0
constant long wdCell = 12
string ls_value
ll_colnum = long(w_mgadw2.dw_1.object.datawindow.column.count)
ll_rownum = w_mgadw2.dw_1.rowcount() + 1
ole_object.Documents.Add("",False,0)
ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range,ll_rownum,ll_colnum,wdWord9TableBehavior,wdAutoFitFixed)
string ls_colname
int i,j
for i = 1 to ll_colnum
ls_colname = w_mgadw2.dw_1.describe("#"+string(i)+".name")+"_t"
ls_value = w_mgadw2.dw_1.describe(ls_colname + ".text")
ole_object.Selection.TypeText(trim(ls_value))
ole_object.Selection.MoveRight(wdCell)
next
w_mgadw2.dw_1.setredraw(false)
ole_object.Selection.MoveLeft(wdCell)
for i = 2 to ll_rownum
for j = 1 to ll_colnum
w_mgadw2.dw_1.scrolltorow(i - 1)
w_mgadw2.dw_1.setcolumn(j)
ls_value = w_mgadw2.dw_1.gettext()
ole_object.Selection.MoveRight(wdCell)
ole_object.Selection.TypeText(ls_value)
next
next
w_mgadw2.dw_1.setredraw(true)
constant long wdFormatDocument = 0
ole_object.ActiveDocument.SaveAs("sample.doc",0,False,"",True,"",False,False,False,False,False)
ole_object.DisConnectObject()
Destroy Ole_Object
请高手看看是怎么回事，指点迷津！！！！
qq:34048856
email:lhdcqu@yahoo.com
有例程到PB相关网站找找吧！
去看一下这个吧。
http://expert.csdn.net/Expert/topic/1757/1757047.xml?temp=.7344782
