【搞定】自定义数据集问题**

刺青

请问下面的代码有什么问题,我DataSetBroker3.DataSet中有7条记录,为什么只添加了最后一条记录的字段.
     i := 1;
     try
        lBizField := TUserDataField.Create(TUserDataSet(DataSetBroker1.DataSet));
        lBizField.DataSet := TUserDataSet(DataSetBroker1.DataSet);
        DataSetBroker3.DataSet.Open;
        DataSetBroker3.DataSet.First;
        while not DataSetBroker3.DataSet.Eof do
        begin
             Dialogs.ShowMessage(SysUtils.IntToStr(i));
             lBizField.ID := SysUtils.IntToStr(i);
             lBizField.DataType := TDataType.dtNumber;
             lBizField.Size := 32;
             lBizField.DisplayName := DataSetBroker3.DataSet.FieldByName['DWXX_DWQM'].AsString;
             i := i+1;
             DataSetBroker3.DataSet.Next;
        end;
     except
         //  TUserDataSet(DataSetBroker1.DataSet).Free;
         //  TUserDataSet(DataSetBroker1.DataSet).EmptyDataSet;
           raise;
     end;

atiger

这样的问题，自己设置断点跟踪，看看是否根据你需要的逻辑在走

刺青

哦
结贴

atiger

ok