写了几个事件后,运行时弹出个错误[问题]**

gundamcharred · 发表于 2007-9-13 17:21:01

如果你的条件都对的话优惠金额改变时应该不会触发事件啊跟一下代码监视一下这几个字段值的变化

新来小职员 · 发表于 2007-9-13 17:28:48

合计金额是在DataSetBroker2中,优惠金额和优惠后金额是在DataSetBroker1中,

atiger · 发表于 2007-9-13 17:30:33

procedure TXSDSP.DataSetBroker2DataChange(Sender: TObject; Field: TDataField);
begin
   if (Field <> nil) and (Field.FieldName = 'HJJE') then
   begin
   DataSetBroker1.DataSet.Edit;
   //DataSetBroker2.DataSet.Edit;
   DataSetBroker1.DataSet.FieldByName('XSDDYHHJE').AsInteger:=DataSetBroker2.DataSet.FieldByName('HJJE').AsInteger-DataSetBroker1.DataSet.FieldByName('XSDDYHJE').AsInteger;
   //DataSetBroker1.DataSet.Open;
   end;
end;

procedure TXSDSP.DataSetBroker1UpdateData(Sender: TObject);
begin
   //DataSetBroker2.DataSet.Edit;
   //DataSetBroker1.DataSet.Edit;
   //DataSetBroker1.DataSet.FieldByName('XSDDYHHJE').AsInteger:=DataSetBroker2.DataSet.FieldByName('HJJE').AsInteger-DataSetBroker1.DataSet.FieldByName('XSDDYHJE').AsInteger;
end;

procedure TXSDSP.DataSetBroker1DataChange(Sender: TObject; Field: TDataField);
begin
   if (Field <> nil) and (Field.FieldName = 'XSDDYHJE') then
   begin
   DataSetBroker1.DataSet.Edit;
   //DataSetBroker2.DataSet.Edit;
   DataSetBroker1.DataSet.FieldByName('XSDDYHHJE').AsInteger:=DataSetBroker2.DataSet.FieldByName('HJJE').AsInteger-DataSetBroker1.DataSet.FieldByName('XSDDYHJE').AsInteger;
   //DataSetBroker1.DataSet.Open;
   end;
end;

是这样的？那请问执行哪句报出来1楼的错误？

新来小职员 · 发表于 2007-9-13 18:18:38

这你说的方法写的，和一楼的错误无关了，这样写是会象10楼那样,代码没报错，但是点了优惠金额优惠后金额的值就不显示了,因为不显示所以也不知道值赋给优惠后金额没有.

新来小职员 · 发表于 2007-9-13 18:21:11

是这样会出1楼错误

新来小职员 · 发表于 2007-9-13 18:33:57

procedure TXSDSP.DataSetBroker2DataChange(Sender: TObject; Field: TDataField);
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('XSDDYHHJE').AsInteger:=DataSetBroker2.DataSet.FieldByName('HJJE').AsInteger-DataSetBroker1.DataSet.FieldByName('XSDDYHJE').AsInteger;
end;
这样写，改变DataSetBroker2的数据时赋值是成功了，但是改变优惠金额时优惠后金额会不显示，如果点一保存或是在DataSetBroker2中新增一条记录时，优惠后金额就会显示出来。
我就是想改进这方法，让它点优惠金额时，优惠后金额不会消失。

atiger · 发表于 2007-9-14 08:21:49

25楼，怎么又这样贴代码了呢？代码有问题，九需要看到所有代码

这样，先看24楼的代码，把你的例子上传上来吧，我恢复环境看看，不可能这样。

新来小职员 · 发表于 2007-9-14 16:43:05

晕，搞了半天终于清楚了，不是代码出问题,是设置了字段的自动填充，取消就不会出错了。

atiger · 发表于 2007-9-14 16:45:19

自动填充？你怎么设置的，说来听听

新来小职员 · 发表于 2007-9-14 16:49:00

合计字段不能马上将合计的值显示出来要新增记录或保存才显示，我想让它立即显示，怎么做？
如果合计不立即更新值，那"优惠后金额"就不能立即取到"合计"的值与"优惠金额"进行计算

		自动登录	找回密码
密码			立即注册