ADOQuery2.close;
       ADOQuery2.SQL.Clear;
       Sql:='insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')';
       ADOQuery2.SQL.Text:=Sql;  //插入数据
       ADOQuery2.ExecSQL;
//显示插入更新后的表
ADOQuery1.close;
ADOQuery1.SQL.Clear;
Sql:='select * from Outgo_Detail order by purchase_date';
ADOQuery1.SQL.Text:=Sql;
ADOQuery1.Open;
ADOQuery1.Active:=True结果显示的数据表总是少了才插入的数据那一行,不知道是什么原因?

解决方案 »

  1.   

    用下边的方法试试,purchase_date 列为什么没有给值?ADOQuery2.close;
           ADOQuery2.SQL.Clear;
           ADOQuery2.SQL.ADD('insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')');
           TRY
              ADOQuery2..ExecSQL;
              If ADOQuery2.RowsAffected > 0 then
                 messagebox(handle,'已保存。','系统提示...',MB_OK);
              Else
                 messagebox(handle,'保存失败!','系统提示...',MB_OK);
           except
              messagebox(handle,'保存失败!','系统提示...',MB_OK);
           end;
    //显示插入更新后的表
    ADOQuery1.close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.ADD('select * from Outgo_Detail order by purchase_date');
    ADOQuery1.Open;
      

  2.   

    对不起:以上有误,给你重发。
    用下边的方法试试,purchase_date 列为什么没有给值?ADOQuery2.close;
           ADOQuery2.SQL.Clear;
           ADOQuery2.SQL.ADD('insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')');
           TRY
              ADOQuery2.ExecSQL;
              If ADOQuery2.RowsAffected > 0 then
                 messagebox(handle,'已保存。','系统提示...',MB_OK)
              Else
                 messagebox(handle,'保存失败!','系统提示...',MB_OK);
           except
              messagebox(handle,'保存失败!','系统提示...',MB_OK);
           end;
    //显示插入更新后的表
    ADOQuery1.close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.ADD('select * from Outgo_Detail order by purchase_date');
    ADOQuery1.Open;
      

  3.   

    加一句adoquery1.post试试,重新查询前刷新一下。