高分悬赏,奇怪的'Invalid Class TypeCast'

qingniao 2002-05-17 08:42:37
TForm1.DXDBGrid.DoubleClick(Sender:TObject);
begin
Form2:=TForm2.Create(nil);
Form2.FilterName:=Query1.Fields[2].AsString;
Form2.ShowModal;
Form2.Free;
end;

TForm2.FormShow(Sender:TObject);
begin
with Query1 do
begin
if Active then Close;
ParamByName('paYue').AsString:=FilterName;
** Open;
end;
当程序第一次执行到**时,正常,以后就出错:
“访问地址冲突”或“Invalid Class TypeCast”
如何解决?
end;

Query的SQL语句为:
SELECT 日期,属性,摘要,凭证号,品名,规格,等级,单位,实收数 数量
FROM 器材明细帐
WHERE TO_CHAR(日期,'YYYYMM')=:paYue
order by 日期
DB Server 是ORACLE
...全文
41 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
9527 2002-05-17
  • 打赏
  • 举报
回复
FilterName的定义那?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧