【结贴】无故跳出错误信息，但不耽误使用**

tanglei932

无故跳出错误信息，但不耽误使用，多点几次就没问题了

shangxy

楼主是运行那个功能？每次都出现么？

newjack

这种类似的错误我们也经常碰到过,有点又不是每次都出现,很难处理噢.

lixy

要缩小下范围，至少能够重现

tanglei932

procedure TASS.SpeedButton3Click(Sender: TObject);
var
   strtype2 : string;
begin
           strtype2:=DataSetBroker1.DataSet.FieldByName('BH').AsString;
           InfoBroker3.Info.DataSetByID('DDHFSJJ').Close;..................这句报错
           with TSQLDataSet(InfoBroker3.Info.DataSetByID('DDHFSJJ')) do
           begin
             SQL.Text :='select * from HFJLB where KHMC='''+strtype2+'''';
             //jsDialogs.ShowMsg(SQL.Text, '系统提示');
           end;
           InfoBroker3.Info.DataSetByID('DDHFSJJ').Open;
         FuncBroker3.Func.Run('');
         FuncBroker3.Func.MainForm.Show;
end;

lixy

楼主用数据集代理关闭那个数据集。

tanglei932

不关闭的话，不能执行以下命令

lixy

楼主把5楼的InfoBroker3.Info.DataSetByID字眼换成数据集代理控件。

tanglei932

procedure TASS.SpeedButton1Click(Sender: TObject);
var
   strtype : string;
begin   
            strtype:=DataSetBroker1.DataSet.FieldByName('BH').AsString;
            DataSetBroker2.DataSet.Close;
            with TSQLDataSet(DataSetBroker2.DataSet) do
            begin
             SQL.Text :='select * from QZBXTSB where KHMC='''+strtype+'''';
            end;
            DataSetBroker2.DataSet.Open;
            FuncBroker1.Func.Run('');
            FuncBroker1.Func.MainForm.Show;
end;
还是不行

lixy

是否能远程看一下，或者把资源打包上来