【搞定】急：如何用代码写 字段的自动填充设置？**

ht88th

我的数据集中有三个字段：SL,DJ,JE
数量SL,单价DJ,金额JE，请问如何设置 JE 字段的自动填充，使其具备如下功能：
1、修改 SL 或 DJ  则自动计算出 JE=SL*DJ
2、JE字段 不管空与否，不管只读与否 ，都要能 自动填充

atiger

1、修改 SL 或 DJ  则自动计算出 JE=SL*DJ
那就直接设置自动填充的表达式为：SL*DJ

2、JE字段 不管空与否，不管只读与否 ，都要能 自动填充
可以，设置自动填充事机就可以了

ht88th

我的意思是 如何用 delphi 代码 实现 这种功能？
用 delphi 代码 实现，用 delphi 代码 实现用 delphi 代码 实现用 delphi 代码 实现用 delphi 代码 实现！！！！
看来，文字交流还是比较累。

atiger

不明白，你是要在平台上用代码来实现这些码？还是要在Delphi 中实现这些

如果是在平台上实现，就不明白，平台已经提供特性了，为啥要用代码了。
如果还是要代码，
那就是
dsDataSet.DataSet.FieldByName('JE').AsFloat := dsDataSet.DataSet.FieldByName('DJ').AsFloat*DataSetBroker1.DataSet.FieldByName('SL').AsFloat


如果是delphi中实现，请参考delphi的帮助

ht88th

如果是在平台上实现，就不明白，平台已经提供特性了，为啥要用代码了。
针对你这句话，就只能写死的程序了。为何你们平台中的一个网格，我能出ERP中所有报表（靠的就是在功能运行起来后，动态写代码实现的）；
所以一句话：你的想法是做死程序的一个方法，我希望做活程序：
在设计（没有运行前）时，仅在信息层拉个数据集，界面上拉个网格而已，等运行起来后对数据集赋SQL语句，打开并用代码实现与网格的绑定。
这时的数据集有SL,DJ,JE三个字段（这三个字段在设计时是没有的，运行起来后才有），故要在运行起来后，设置 JE=SL*DJ,
说了这么多，总该知道我为何要用代码动态写了吧，如还不明白，你写就是了
总之，我要用代码实现：在设计时（没有运行时，死的设置JE=SL*DJ）设置的自动填充功能，
也就是说，我在设计数据集时，不想傻瓜式地一步一步设计字段的自动填充功能，我想用写CODEING的方式，实现同样的功能，OK?

ht88th

UP.怎么没人回复了

atiger

最初由 atiger 发布
[B]不明白，你是要在平台上用代码来实现这些码？还是要在Delphi 中实现这些

如果是在平台上实现，就不明白，平台已经提供特性了，为啥要用代码了。
如果还是要代码，
那?..

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

这个不能满足你的需求吗？如果是哪里不满足呢？

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=1058

ht88th

就一个关闭属性，还不能满足我的需求,

请问 dsDataSet.DataSet.BizFieldByName('XX').AutoFillDef.Options
怎么给它赋值

虽然dsDataSet.DataSet.BizFieldByName('XX').AutoFillDef.Options  := [0,1,2] 也可以实现,
但我想知道，具体的枚举值!

谢谢　

ht88th

UP, UP