Invalid use of keyword.
token:money
line number:1.

解决方案 »

  1.   

    with query1 do
                begin
                    close;
                    sql.Clear;
                    sql.Add('alter table yfgz add '''+edit1.text+''' money');
                    execsql;
                end;这有错吗?大家看看
      

  2.   

    试试
    sql.Add('alter table yfgz add '+edit1.text+' money');
      

  3.   

    我 用的是paradox数据库啊,edit1.text表示由用户动态添加字段啊用户在文本框中输入字段名称,然后单击添加按钮添加
      

  4.   

    edit1输入的是什么?下面的我试过,没有问题
    with query1 do
                begin
                    close;
                    sql.Clear;
                    sql.Add('alter table yfgz add '+edit1.text+' money');
                    execsql;
                end;
      

  5.   

    我发过去了,帮我试试看看行不行,我是用delphi6,windows2000
      

  6.   

    我试了一下,我是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;