求教大虾！

[lhdcqu]

我将数据窗口的数据保存到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:[e-mail]

[fengzeng]

有例程到PB相关网站找找吧！

[lhdcqu]

帮助里有吗？

[lhdcqu]

我还是不明白为什么？

[icedot]

去看一下这个吧。
http://expert.csdn.net/Expert/topic/1757/1757047.xml?temp=.7344782

[lhdcqu]

结了有问题再问