要把数据库的东西导入道word,关键能说明worddoucment里参数的使用,谢谢
解决方案 »
- TFileStream的疑惑?
- 小问题:如何读取“.cpp”类型的文件内容?
- 挑战:怎么在应用服务程序里的关机代码?
- 求助:哪里有带源码的TREEVIEW控件。
- About ADO 2.1.Waiting on line.......
- 关于控件webbrower的一点小问题
- 在WIN2000的内核系统里的针打印驱动,纸张大小的定义为什么没有自定义,我怎么才获得?
- 求高手来帮忙
- 字符串转换的问题
- [300分向高手求证]-关于用delphi+sql server7开发的程序中的数据手工录入产生的问题[令人费解]
- 单击listview 控件中的空ITEMS 或者说是空项目的时候,出错。
- 关于treeview动态显示、修改数据库内容的问题……(多表)
var
WordApp,WordDoc,WordTable:OleVariant;
i,j:integer;
begin
WordApp:=CreateOleObject('Word.Application');
WordApp.Visible:=True;
WordDoc:=WordApp.Documents.Add;
WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);
for i:=1 to DBGrid1.Columns.Count do
WordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);
i:=2;
with DBGrid1.DataSource.DataSet do
while not eof do
begin
for j:=1 to DBGrid1.Columns.Count do
WordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);
Next;
Inc(i);
end;
end;