高分悬赏,奇怪的'Invalid Class TypeCast'
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