代码如下:
procedure Tcjgl_form.N2Click(Sender: TObject);
var
id:string;
begin
id:=trim(stu_adoq1.fieldbyname('cjid').AsString);
if messagedlg('确定要删除选中的考生成绩吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with TADOQuery.Create(nil) do
begin
try
close;
connection:=main_form.ADOCon1;
sql.Clear;
sql.Add('delete from t_cjb where (cjid='''+id+''')');
ExecSQL;
finally
free;
end;
end;
end;
end;
stu_adoq1这个表中是否有cjid字段呢?
stu_adoq1 获取数据源语句里面 有包含cjid这个字段吗,还是stu_adoq1 这个数据源被改动了导致没有cjid这个字段