【结贴】数据集带有临时字段，数据网格无法插入，怎么解决**

trickle

没设断点，运行完毕后插入，错误如下、

gaihl

最后一句出错了吗？

trickle

续：楼上的楼上

atiger

我觉得楼主做的有点复杂了吧，
你其实就是在DataSetXLXXSJJ 这个数据集上增加了一个“线路长度”这个临时字段，然后在增加的时候给这个字段复制，对吧？DataSetXLXXSJJ2  这个数据集是要表现的吗？如果不是，
其实你直接搞个Query发一个SQL语句过去，等到一个结果，然后直接复制给DataSetXLXXSJJ 的“线路长度”这个临时字段就可以了，没有必要用uerFilter

trickle

可能做的复杂了，因为不知道还能怎么做
DataSetXLXXSJJ2的作用就在于计算出了线路长度，其他的一点用也没有，具体见sql
[其中，“线路信息数据集2”即DataSetXLXXSJJ2的sql是，功能就是从QYLJB和XLDYB中算出了线路ID和相应的长度、SELECT   XLDYB.XLID,SUM(QYLJB.ZD) AS '线路长度'
  FROM XLDYB, QYLJB
WHERE XLDYB.XLID=QYLJB.XLID
GROUP BY XLDYB.XLID]
然后在数据网格中显示出来。数据网格因为有线路长度这个临时字段，所以插不进去

能否请您支个简单可行的招呢？

trickle

直接搞个Query发一个SQL语句过去，等到一个结果，然后直接复制给DataSetXLXXSJJ 的“线路长度”这个临时字段就可以了

查询在哪里搞，业务信息的代码里吗？具体哪个方法？然后又发给谁？
我是新手，这块都是摸索着做的，谢了！

alang

楼主用错事件了
出错时候，楼主可以打开调用栈看看

atiger

事件写在业务信息下的数据集的计算字段的onCalcField 上 参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=558

直接给Query赋SQL语句
你现在不是先定义一个，“线路信息数据集2”，它的SQL是
SELECT   XLDYB.XLID,SUM(QYLJB.ZD) AS '线路长度'
  FROM XLDYB, QYLJB
WHERE XLDYB.XLID=QYLJB.XLID
GROUP BY XLDYB.XLID
然后再给这个数据集加上一个UserFilter:=' XLDYB.XLID='''+DataSetXLXXSJJ.FieldByName。
UserFilter 就是在原先的SQL语句的Where 再and 一下UserFilter 条件。
那么你直接把整个这个SQL赋值“线路信息数据集2”这个数据集，或者赋值Query就可以了
至于Query然后复制，参考代码如下
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := 'DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.DATABASE';
    lQuery.CommandText :='select * from QMINFOTABLE where ZD=1 and ZD2>100';  
    lQuery.Open;
  finally
     lQuery.Free;
  end;
end;

trickle

能不能说具体点，该用什么事件
谢谢

atiger

28lou