|
楼主 |
发表于 2007-1-22 15:43:59
|
显示全部楼层
关于数据集是否释放的问题!!!
目前我们遇到的问题是这样的:
我们建立了一个引用数据库表的功能(在数据表中有数据的前提下),另外单独建立了一个独立的空白窗体的功能,在上面做了一个 "添加" 按钮,弹出刚才创建的功能窗体,然后选择窗体上的记录,比如说定位到非第一条的记录上,点击确定按钮,而当我们再次点击
“添加”按钮第二次弹出添加窗体时,当前的记录却定位到了第一次调用时点击的记录位置而不是重新定位到第一条记录,请问这是什么原因呢?
我的代码是这样写的:(在空白窗体上添加了一个名为“添加”的按钮的OnClick事件)
procedure TMainForm.btnAddClick(Sender: TObject);
var
lForm: TFRM_Main;
begin
lForm := TFRM_Main.Create(Context);
try
lForm.Caption := '新增';
if lForm.ShowModal = Business.Forms.Controls.mrOk then
JsDialogs.ShowMsg('调用窗体成功!','提示');
finally
lForm.Free;
end;
end;
当第一次选择了探出窗体中的第三条记录,第二次点击时弹出的窗体的截图(我们想要的效果是当再次点击时弹出的窗体自动定位到第一条记录)
|
|