【搞定】[问题]窗体运行时提示错误**

snowman

这是什么错误？

snowman

编译通过，粗体的为出错时指向的代码。

procedure TMainForm.Button2Click(Sender: TObject);
var
   s1,s2,s3 : string;
   ii : integer;
   lsqldataset:TSQLDataSet;
begin
     with lsqldataset do
     begin
          [B]sql.Text := 'select max(SPXX_SPBH) from SPXX';  //取商品编号最大值[/B]
          Open;
          s1 := FieldByName('SPXX_SPBH').AsString;
          if s1 = '' then lForm.Edit_SPBH.Text := 'SP0001'
          else
              begin
                   s2 := s1.Substring(2);
                   ii := Sysutils.StrToInt(s2);
                   ii:=ii+1;
                   s3 := Sysutils.IntToStr(ii);
                   lForm.Edit_SPBH.Text := 'SP''+''''+s3+''';
              end;
     lForm.Edit_SPBH.Text := FieldByName('SPXX_SPBH').AsString;
     end;
     lForm.Caption := '新增商品';
     lForm := TSPLR.Create(self.Context);
try
        if lForm.ShowModal=Business.Forms.Controls.mrOK then
        begin
//           DataSetDWXXSJJ.Edit;
//           DataSetDWXXSJJ.FieldByName['GHDW'].AsString := lForm.Edit1.Text;
        end;
Finally
        lForm.Free;
end;

end;

atiger

lsqldataset 怎么没有创建呢？lsqldataset:TSQLDataSet; 仅仅是定义

snowman

照3楼的做了，解决了一个问题
不过还是有很多问题
还好都已经解决了 ^_^

snowman

可以结帖了
谢谢

atiger

ok