简单的修改问题,初学者。

                            
procedure   TDept_Form.BitBtn4Click(Sender:   TObject);   
      var  
      TargetValue:String;  
      Str:String;  
  begin  
      TargetValue:=Dept_Form.DBGrid1.Columns[0].Field.AsString;  
      Dept_Form.ADOQuery1.Close;  
      Dept_Form.ADOQuery1.SQL.Clear;  
      Str:='update   Dept   set   DeptName   =   '''+DeptName.Text+''',DeptCode   =   '''+DeptCode.Text+'''   where   ID='+TargetValue;  
      Dept_Form.ADOQuery1.SQL.Add(Str);  
      Dept_Form.ADOQuery1.ExecSQL;  
  end;  
   
  不知道为什么出错  
 

查看回复