如何用代码给DataGrid的数据源赋值？**

巧克力味

var
   lsqldataset: TSQLDataSet;
begin
   lsqldataset := TSQLDataSet.Create(Self);
   lsqldataset.Database.URL := 'Biz:GJPSJK.Database';

   with lsqldataset do
   begin
        lsqldataset.Close;
        lsqldataset.SQL.Text := 'Select * from DDMXB1';
        lsqldataset.Open;
        DataGrid1.DataSource.DataSet := lsqldataset;
   end;
end;

用上面代码会出现下面那种错误,如果能实现那是怎么实现的呢?

巧克力味

代码少了哪一步吗?

自己顶一下

巧克力味

用过滤可以实现我那功能,但就不知道上面的错误是什么原因,给个回答啊?

atiger

你跟踪过吗？执行哪句弹出这个错误？

还有你自己创建了TSQLDataSet，怎么没有看到你释放呢？是在事件上释放吗？那你创建的时候怎么没有判断他它是否存在呢？

文世弘

楼主对 DataGrid1.DataSource 赋过值嘛？没有的话，会出错，标准用法是：
DataSourc1.DataSet := xxx;
DataGrid1.DataSource := DataSourc1; // 如果界面上赋过，那这个不需要

从出错看是nil错，估计就是 DataGrid1.DataSource 没有值导致

巧克力味

再去看看吧,东西太多了,搞来搞去搞乱了!~~~~

atiger

??

atiger

这个帖子我先结贴了，有问题，请重新开贴