【结帖】[请求]动态建立的标准数据集能否作为数据感知组件的数据源？**

xhong

利用代码新建的标准数据集，如何作为数据感知组件的数据源？写了如下的代码：
XMJBXX.TZXMXXXXBDWD(lForm.DocViewXMJBXX_ZXMXXXXBDWD.Doc).DataEdit1.DataSource .DataSet:= TempDS;
XMJBXX.TZXMXXXXBDWD(lForm.DocViewXMJBXX_ZXMXXXXBDWD.Doc).DataEdit1.DataField := 'ProjectName';
其中：　TempDS : 为新建的标准数据集。数据集已经打开，并且有数据。

在第一句出现错误，错误的提示为：

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=15490
参考一下5楼

xhong

参考了二楼连接中的五楼的做法，在窗口中新建了一个数据集代理。执行下面这条语句时出错：
　　　　TempDSB.DataSet := TempDS;
出错提示：不能给只读的属性赋值。
我发现我遇到的情形与二楼连接中的情况是一样的，二楼连接中的问题最后也没看到解决方法。

biglazy

我都抓狂了 今天周六人真少 怎么没人回复我得帖子 都等半天了啊还是0回复～

shangxy

对 TempDSB.DataSetid赋值呢？

zfang

楼主，问题解决了吗？如果没有解决的话，你参考这样子用一下
procedure TMAINFORM.Button2Click(Sender: TObject);
var
  lsqldataset: TSQLDataSet;
  ldatasource : TDataSource;
begin
  lsqldataset := TSQLDataSet.Create(Self);
  ldatasource := TDataSource.Create(Self);
  lsqldataset.Database.URL := 'Biz:\PXYS_LX_\SJK.DATABASE';
  with lsqldataset do
  begin
    lsqldataset.Close;
    lsqldataset.SQL.Text := 'Select * from A';
    lsqldataset.Open;
    ldatasource.DataSet := TSQLDataSet(lsqldataset);
    DataEdit1.DataSource := ldatasource;
    DataEdit1.DataField := 'SPBH';
  end;
end;

xhong

谢谢，结账！