【结】Stack overflow**

crystal

if(djlxstr = '借出单')then
  begin
    jcForm := JCDGN.TMAINFORM.Create(self.Context);
    try
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Close;
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Database.URL := 'Biz:JXC_GJP_SJK.Database';
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).SQL.Text := ' SELECT * FROM JCDB  ';
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Open;
      jcForm.DataSetBroker1.DataSet.Filter := ' DJBH = '+''''+djbhstr+'''';
      jcForm.DataSetBroker1.DataSet.Filtered := true;
      jcForm.ShowModal;
    Finally
      jcForm.Free; //这里报错
    end;
  end;

lixy

jcForm.ShowModal;下面加一句
TSQLDataSet(jcForm.DataSetBroker1.DataSet).Close;试试

crystal

Access violation at address 00000000. Read of address 00000000
几个内存错误后，如下图。  
TSQLDataSet(jcForm.DataSetBroker1.DataSet).Close;

lixy

1楼的这段代码写在什么位置了？功能？功能的窗体？信息？资源？

crystal

另个功能的窗体   BitBtn4Click 事件里。

lixy

好像楼主这个用runfuc启动功能比较合适。这样掉不太符合平台的5层原理。
或者把这个窗体做在资源集里面，独立起来。

atiger

我说说1楼的代码吧，
先发了一个SQL，然后打开数据集
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Close;
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Database.URL := 'Biz:\JXC_GJP_\SJK.Database';
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).SQL.Text := ' SELECT * FROM JCDB  ';
      TSQLDataSet(jcForm.DataSetBroker1.DataSet).Open;
紧接着就过滤
      jcForm.DataSetBroker1.DataSet.Filter := ' DJBH = '+''''+djbhstr+'''';
      jcForm.DataSetBroker1.DataSet.Filtered := true;
出于啥原因，不把这个条件加到上面的SQL的Where部分呢，这样会影响性能的


至于jcForm.Free报错，jcForm里面有代码吗？都屏蔽了看看呢

crystal

6楼，不是很明白，我本身调用的是已经在使用的 借出单 的 功能窗体，把这个窗体做在资源集里面，独立起来的话，我就要重新另外建个功能？
7楼，我把jcForm  里面 关于关闭后执行的 代码 都屏蔽，还是报错误。现在正在尝试把打开前的代码也全部屏蔽掉。

crystal

所有代码屏蔽后也是同样的 Stack overflow  问题。

atiger

我指的是JCDGN.TMAINFORM 这个窗体中所有代码，不知道楼主是否理解我说的意思