看看我的代码什么问题？

Question

sql.Add('update table_detailsalary set 实发工资=' +strjisuan+'');
改为：
sql.Add('update table_detailsalary set 实发工资=''' + strjisuan+ '''');
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

sql.Add('update table_detailsalary set 实发工资=' +strjisuan+'');
改为：
sql.Add('update table_detailsalary set 实发工资=''' +strjisuan+'''');

Answer 2

strjisuan:=strjisuan+query_jisuan.Fields[0].AsString+query_jisuan.Fields[1].AsString;
是三个字符串相加可能不是数字
后面的的UPDATE可能会错

Answer 3

var
  strjisuan:string;
begin
   strjisuan:='';
   with query_jisuan do
    begin                   //缺close
     close
     sql.Clear;
     sql.Add('selcet * from table_salarycal') ;
     open;
    end;
    while not query_jisuan.Eof do
       begin
         strjisuan:=strjisuan+query_jisuan.Fields[0].AsString+query_jisuan.Fields[1].AsString;
         query_jisuan.Next;
       end;
      strjisuan:=trimLeft(strjisuan);
    with query_jisuan do
     begin
      close;
      sql.Clear;
      sql.Add('update table_detailsalary set 实发工资=' +strjisuan+'');
     end;
     query_jisuan.ExecSQL;
end;

Answer 4

我的那个query本来就是close的 没有开

Answer 5

      sql.Add('update table_detailsalary set 实发工资='''  
+ strjisuan + ''');  这行老是不对阿

Answer 6

with query_jisuan do
     begin
      close;
      sql.Clear;
      sql.Add('update table_detailsalary set 实发工资=''' + strjisuan + ''');//这行总是报错 
      end;
     query_jisuan.ExecSQL;
错误请看下边[Error] fr_salaryluru.pas(63): Unterminated string
[Error] fr_salaryluru.pas(64): ')' expected but 'END' found
[Fatal Error] Project1.dpr(12): Could not compile used unit 'fr_salaryluru.pas'

Answer 7

sql.Add('update table_detailsalary set 实发工资=''' + strjisuan + '''');//这行总是报错 
应该是4个'(引号)