edit1输入的是什么?下面的我试过,没有问题 with query1 do begin close; sql.Clear; sql.Add('alter table yfgz add '+edit1.text+' money'); execsql; end;
我发过去了,帮我试试看看行不行,我是用delphi6,windows2000
我试了一下,我是d7+win2000,将3个单引号改为一个就可以了,中文也可以 if rbyf.Checked=true then with query1 do begin close; sql.Clear; sql.Add('alter table yfgz add '+edit1.text+' Money'); execsql; end else with query1 do begin close; sql.Clear; sql.Add('alter table ykgz add '+edit1.text+' Money'); execsql; end;
begin
close;
sql.Clear;
sql.Add('alter table yfgz add '''+edit1.text+''' money');
execsql;
end;这有错吗?大家看看
sql.Add('alter table yfgz add '+edit1.text+' money');
with query1 do
begin
close;
sql.Clear;
sql.Add('alter table yfgz add '+edit1.text+' money');
execsql;
end;
if rbyf.Checked=true then
with query1 do
begin
close;
sql.Clear;
sql.Add('alter table yfgz add '+edit1.text+' Money');
execsql;
end
else
with query1 do
begin
close;
sql.Clear;
sql.Add('alter table ykgz add '+edit1.text+' Money');
execsql;
end;