问题出现在这里
datamodule4.ADOQuery1.SQL.Add('where 1<>2 ');//去掉
用 INSERT INTO T1(f1,f2,f3) VALUES(v1,v2,v3)是不能加判断语句的
它不同如下
var
vSql : String;
begin
......
vSql := 'INSERT INTO teachernodo SELECT * FROM teachernodo2 WHERE 1<>2';
datamodule4.ADOQuery1.SQL.Add(vSql);
datamodule4.ADOQuery1.ExecSQL
end;