لاله86
سه شنبه 28 خرداد 1387, 12:15 عصر
سلام
میشه یکی به من بگه کجای این کد اشتباهه:
procedure Treport_f.b24Click(Sender: TObject);
var mah : integer;
var s1,s2 : integer;
begin
mah := strtoint(copy(me9.Text,6,2));
mandemo.SQL.Add('select sum(sumsd) as sum1 from t_mo_s where cod like'+ quotedstr(e20.Text ));
mandemo.Active:=true;
s1:= strtoint(mandemo.FieldValues['sum1']);
mandemo.SQL.Clear;
mandemo.SQL.Add('select sum(subtr)as sum2 from t_mo_r where cod like' + quotedstr(e20.text));
mandemo.SQL.Add('and eb = 0 ');
mandemo.Active:=true;
s2:= strtoint(mandemo.FieldValues['sum2']);
وقتی اجرا میکنم خطا میگیره :syntax error in FROM clause
وfrom رو با حروف بزرگ نوشته و خط 8 رو نشون میده
میشه یکی به من بگه کجای این کد اشتباهه:
procedure Treport_f.b24Click(Sender: TObject);
var mah : integer;
var s1,s2 : integer;
begin
mah := strtoint(copy(me9.Text,6,2));
mandemo.SQL.Add('select sum(sumsd) as sum1 from t_mo_s where cod like'+ quotedstr(e20.Text ));
mandemo.Active:=true;
s1:= strtoint(mandemo.FieldValues['sum1']);
mandemo.SQL.Clear;
mandemo.SQL.Add('select sum(subtr)as sum2 from t_mo_r where cod like' + quotedstr(e20.text));
mandemo.SQL.Add('and eb = 0 ');
mandemo.Active:=true;
s2:= strtoint(mandemo.FieldValues['sum2']);
وقتی اجرا میکنم خطا میگیره :syntax error in FROM clause
وfrom رو با حروف بزرگ نوشته و خط 8 رو نشون میده