【结贴】功能下的窗体调用资源集下的窗体出错**

李涛

procedure TMZHJSFCT.AddMX();
var frm DDGGZYJ.TXQSFXMCT;
    ds,ds1 :TDataSet;
begin
  frm := LDDGGZYJ.TXQSFXMCT.Create(Self.Context);
  try
    if frm.ShowModal = Business.Forms.Controls.mrOk then
    begin
      ds :=Self.dsbCFMX.DataSet;
      ds1 :=frm.DataSetYXXM;
      ds1.First;
      while not ds1.Eof do
      begin
        ds.Append;
        ds.FieldByName('AKC222').Value :=ds1.FieldByName('DM').Value;
        ds.FieldByName('AKA063').Value :=ds1.FieldByName('LB').Value;
        ds.FieldByName('AKC223').Value :=ds1.FieldByName('MC').Value;
        ds.FieldByName('AKA065').Value :=ds1.FieldByName('XMDJ').Value;
        ds.FieldByName('AKC225').Value :=ds1.FieldByName('JG').Value;
        ds.FieldByName('AKA070').Value :=ds1.FieldByName('JX').Value;
        ds.FieldByName('AKA074').Value :=ds1.FieldByName('GG').Value;
        ds.FieldByName('AKA067').Value :=ds1.FieldByName('DW').Value;
        ds1.Next;
      end;
      if ds.State in [TDataSetState.dsInsert,TDataSetState.dsEdit] then
        ds.Post;
    end;
  finally
    frm.free;
  end;
end;
我已经在功能中引入了资源集，LDDGGZYJ为资源集单元名称，在资源集窗体创建时，跳出‘BizLib.dll’访问错误，请指教

jiahaiminghr

哪句抛出的异常？

李涛

frm := LDDGGZYJ.TXQSFXMCT.Create(Self.Context);
我在这个窗体中放了userdataset，并在其中两个字段定义了查找定义，不知有没有影响

李涛

其中还有ADO控件

atiger

我测试了，是ok的，这样吧，把资源都打上来看看

李涛

我试过了，没有那个ADO控件就OK了

atiger

就放了一个ADO控件，做连接了吗？ADO是放到资源集的窗体上，还是当前运行功能的窗体上？
你把资源包，或者做个简单的重新例子，这样我一看就明白了，省的来回确认信息

李涛

我已经修改成另外一种调用本地数据的形式了，不用ADO控件了，代码被我改了，你们的ADO控件可能有问题，我放了一个ADOCONNECTON和一个ADOQUERY，ADOCONNECTION连接ACCESS，ADOQUERY查询其中的三个表（UNION形式），直接在设计界面打开查询也会报错