adodataset1.FieldByName('drug_code').AsString:='drug_code';
adodataset1.FieldByName('batch_no').AsString:='batch_no';

解决方案 »

  1.   

    你的Drug_code和Batch_no是什么?是字符串就应该加引号,如果是变量就应该先赋值!
      

  2.   

    drug_code  batch_no是数值还是变量?
      

  3.   

    提示一下,那个Edit没必要写。
      

  4.   

    代码问题很多啊,Edit没必要写,变量也没有赋值
      

  5.   

    应该这样写
    adodataset1.close;
    adodataset1.Open;
    adodataset1.Insert;
    adodataset1.FieldByName('drug_code').AsString:='drug_code';
    adodataset1.FieldByName('batch_no').AsString:='batch_no';
      

  6.   

    adodataset1.FieldByName('drug_code').AsString:='drug_code';
    adodataset1.FieldByName('batch_no').AsString:='batch_no';
    去掉edit那一行
      

  7.   

    主意如下更改:
    adodataset1.close;
    adodataset1.Open;
    adodataset1.Insert;
    adodataset1.FieldByName('drug_code').AsString:='drug_code';
    adodataset1.FieldByName('batch_no').AsString:='batch_no';