关于word中OleVariant的赋值问题

[genispan]

定义如下：
VAR2,VAR3,VAR4: OleVariant;
如果设
VAR2:=emptyparam;
VAR3:='test';
则 WordDoc.Application.Selection.Find.Execute(VAR3,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2)
可以找到指定的字符串。

但设置 VAR3:=Query1.Fields.Fields[0].AsString后，却无法找到对应的字符串，Query1.Fields.Fields[0].AsString的内容也为‘test’。
有人知道原因吗？ 谢谢牛人指点！！！

[bdmh]

这样试试,行吗,我没试过
VAR3:=Query1.Fields.Fields[0].AsVariant

[bdmh]

这样试试,行吗,我没试过
VAR3:=Query1.Fields.Fields[0].AsVariant

[genispan]

Execute 提示实参和形参必须一致

[lovelymelon]

这可就奇怪了，测试通过没问题啊

[lovelymelon]

那你就定义一个参数
s:string;


s:=Query1.Fields.Fields[0].AsString;
WordDoc.Application.Selection.Find.Execute(s,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2)

[genispan]

不会吧 我这为什么报错呢？

[genispan]

5楼的兄弟 我试过了 还是3楼的那个错误啊

[genispan]

WordDoc定义为TWordDocument;

[lovelymelon]

奥，定义不一样
worddoc定义为TWordApplication

[genispan]

其实是差不多的
Query1.Fields.Fields[0].AsString或者Query1.Fields.Fields[0].AsVariant设置好后 编译可以通过 但无法找到相应的值

如果设置VAR3为某个常量就可以了 奇怪啊

[lovelymelon]

你确定Query1.Fields.Fields[0].AsString<>''

[bdmh]

用TWordApplication

wordApp.Selection.Find.Text := Query1.Fields.Fields[0].AsString;
wordApp.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam)

上面是我在网上找到的,说是可以解决

[genispan]

我先试试 如果OK 立即结贴

[starluck]

[Quote=引用 10 楼 genispan 的回复:]
其实是差不多的
Query1.Fields.Fields[0].AsString或者Query1.Fields.Fields[0].AsVariant设置好后 编译可以通过 但无法找到相应的值

如果设置VAR3为某个常量就可以了 奇怪啊
[/Quote]

檢查下，最後是什麼類型。

[genispan]

可以了 结贴 谢谢大家参与