需要您的帮助!

Question

我是担心说不清楚
提示:project1.exe raised exception class evarianterror with message'invalid variant type conversion 'processed. use step or run to continue.可以和我联系我可以把程序传过去

Answer 1

procedure TForm13.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
  Form13.Edit1.SetFocus;
  with datamodule5.ADOQuery17 do         //查询客房
    begin
      close;
      sql.Clear;
      sql.Add('select * from room');
      sql.Add('where id='''+edit1.text+'''');
      open;
    end;
  with DataModule5.ADOQuery15 do         //查询客户是否有入住工作单
    begin
      close;
      sql.Clear;
      sql.Add('select * from sheet_items');
      sql.Add('where room='''+edit1.Text+''' and custom='''+edit2.Text+'''');
      open;
    end;  i:=DataModule5.ADOQuery15.RecordCount;
  if i=0 then
    Application.MessageBox('没有符合条件的记录！','提示')
  else
    begin
      str:=vartostr(DataModule5.ADOQuery15.Recordset.Fields['worksheet'].Value);
      str1:=vartostr(Datamodule5.ADOQuery15.Recordset.Fields['rent'].Value);
      j:=datamodule5.ADOQuery15.Recordset.Fields['live_day'].Value;
      with DataModule5.ADOQuery16 do     //查询满足此工作单编号的费用列表
        begin
         close;
          sql.Clear;
          sql.Add('insert cost (worksheet,rentcost) values('''+str+''','''+str1+''')');
          DataModule5.ADOQuery16.ExecSQL;
          end;
      with DataModule5.ADOQuery16 do
        begin
          close;
          sql.Clear;
          sql.Add('select * from cost');
          sql.Add('where worksheet='''+str+'''and rentcost='''+str1+'''');
          open;
        end;
    end;
end;
这里没有办法上传图片,请看看这短代码有问题吗,方便的化可以加我的QQ79505527,我可以把程序传过去

Answer 2

procedure TForm13.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
  Form13.Edit1.SetFocus;
  with datamodule5.ADOQuery17 do         //查询客房
    begin
      close;
      sql.Clear; 
      sql.Add('select * from room'); 
      sql.Add(' where id='''+edit1.text+'''');
      open; 
    end; 
  with DataModule5.ADOQuery15 do         //查询客户是否有入住工作单
    begin 
      close; 
      sql.Clear;
      sql.Add('select * from sheet_items'); 
      sql.Add(' where room='''+edit1.Text+''' and custom='''+edit2.Text+'''');
      open;
    end;  i:=DataModule5.ADOQuery15.RecordCount;
  if i=0 then
    Application.MessageBox('没有符合条件的记录！','提示')
  else
    begin 
      str:=vartostr(DataModule5.ADOQuery15.Recordset.Fields['worksheet'].Value);
      str1:=vartostr(Datamodule5.ADOQuery15.Recordset.Fields['rent'].Value);
      j:=datamodule5.ADOQuery15.Recordset.Fields['live_day'].Value;
      with DataModule5.ADOQuery16 do     //查询满足此工作单编号的费用列表
        begin
          close;
          sql.Clear;
          sql.Add('insert cost (worksheet,rentcost) values('''+str+''','''+str1+''')');
          ExecSQL;
        end;
      with DataModule5.ADOQuery16 do
        begin
          close;
          sql.Clear;
          sql.Add('select * from cost');
          sql.Add(' where worksheet='''+str+'''and rentcost='''+str1+'''');
          open;
        end;
    end;
end;

Answer 3

看着就头痛~
让simonhehe 帮你调吧

Answer 4

where前面没空格
居然有ADOQuery15....汗啊

Answer 5

看你的出错提示，是类型转换错误。
你可以在调试状态下操作，出错后delphi会定位到出错行。
把出错行指出来大家也好帮你分析。另外瀑布汗 adoquery16