channame:='2002电信'; chClaName.ADOTable1.First; while not chClaName.ADOTable1.eof do begin if chClaName.ADOTable1.FieldByName('classname').Value=channame then chClaName.ADOTable1.FieldByName('classname').Value:=edit1.text; chClaName.ADOTable1.Next; end;我觉的应这样写
酷鱼,我一开始也那样写的,也出错:dataset not in insert or edit mode
ADOQuery1.sql.add('update MyTable set classname = '+ channame);
ADOQuery1.Execsql;
ADOQuery1.close;
tmp : variant;
tmp := edit1.text;
chClaName.ADOTable1.FieldByName('classname').Value:=tmp;
chClaName.ADOTable1.First;
while not chClaName.ADOTable1.eof do
begin
if chClaName.ADOTable1.FieldByName('classname').Value=channame then
chClaName.ADOTable1.FieldByName('classname').Value:=edit1.text;
chClaName.ADOTable1.Next;
end;我觉的应这样写
使得相关的表处于可编辑状态