起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: hero419

【结贴】如何触发自动填充?**

[复制链接]
 楼主| 发表于 2008-1-30 16:51:09 | 显示全部楼层
最初由 jiahaiminghr 发布
[B]必须要滚动记录集了 [/B]

也行啊,这个要如何实现呢?

.                                                                                                                                                                             .
.                                                                                                                                                                             .
回复 支持 反对

使用道具 举报

发表于 2008-1-30 17:04:22 | 显示全部楼层
Dataset.next
回复 支持 反对

使用道具 举报

发表于 2008-2-14 10:26:13 | 显示全部楼层
楼主请回馈
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-2-18 14:20:53 | 显示全部楼层
OK了,
procedure TMainForm.Button1Click(Sender: TObject);
begin
DataSetBroker1.DataSet.First;
  while not DataSetBroker1.DataSet.Eof do
begin
     DataSetBroker1.DataSet.Edit;
     DataSetBroker1.DataSet.FieldByName('Y').asFloat :=DataSetBroker1.DataSet.FieldByName('Y').asFloat;
     DataSetBroker1.DataSet.Next;
end;
end;

其中Y是个不需要参加自动填充的固定字段,这样就可以对数据集中所有记录进行自动填充的计算了。
结了吧,谢谢。
.                                                                                                                                                                                                .
回复 支持 反对

使用道具 举报

发表于 2008-2-18 14:36:20 | 显示全部楼层
遍历数据集的动作建议
先DisableControls,遍历只有执行EnableControls
参考 http://wiki.justep.cn/%E6%95%B0% ... 14bfa5fa0ccf860d389
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-2-19 11:36:56 | 显示全部楼层
最初由 alang 发布
[B]遍历数据集的动作建议
先DisableControls,遍历只有执行EnableControls
参考 [url]http://wiki.justep.cn/%E6%95%B0%E6%8D%AE%E9%9B%86#head-488e90747d76022b8ce8914bfa..

以下省略...... [/B]


谢谢alang,我对代码已经做了如下调整。

procedure TMainForm.Button1Click(Sender: TObject);
begin
DataSetBroker1.DataSet.DisableControls;
  try
  DataSetBroker1.DataSet.First;
    while not DataSetBroker1.DataSet.Eof do
    begin
       DataSetBroker1.DataSet.Edit;
       DataSetBroker1.DataSet.FieldByName('Y').asFloat :=DataSetBroker1.DataSet.FieldByName('Y').asFloat;
       DataSetBroker1.DataSet.Next;
    end;
  finally
  DataSetBroker1.DataSet.EnableControls;
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2008-2-19 13:50:12 | 显示全部楼层
这个还有问题吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-2-19 16:53:11 | 显示全部楼层
没有了,可以结了,谢谢。
.                                                                                                                                                                                                   .
.                                                                                                                                                                                                   .
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-7 03:47 , Processed in 0.039244 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表