DataChange事件上报错

changansxy · 发表于 2011-1-7 17:00:45

procedure TMAINFORM.DataSetBroker4DataChange(Sender: TObject; Field: TDataField);
var
  bz:integer;
begin

  if (Field <> nil) and (Field.FieldName = 'BXBM') then
  begin
if not ( DataSetBroker4.DataSet.FieldByName('BXBM').IsNull )and ( DataSetBroker4.DataSet.FieldByName('BXBM').AsString <>'' ) then
begin
   Query2.Close;
   Query2.CommandText := 'select SFYWBM from BMDYB_BX where OABMMC = :a ';
   Query2.Params.ParamByName('a').AsString := DataSetBroker4.DataSet.FieldByName('BXBM').AsString;
   Query2.Open;
   bz:=  Query2.FieldByName('SFYWBM').AsInteger;
   if bz =1 then
   begin

      Button3.Enabled := true;
      DataSetBroker4.DataSet.FieldByName('HDXM').ReadOnly :=false;

   end
   else
   begin
      Button3.Enabled := false;
      DataSetBroker4.DataSet.FieldByName('HDXM').ReadOnly :=true;

   end;
end;

  end;

changansxy · 发表于 2011-1-7 17:01:51

if not ( DataSetBroker4.DataSet.FieldByName('BXBM').IsNull )and ( DataSetBroker4.DataSet.FieldByName('BXBM').AsString <>'' ) then

changansxy · 发表于 2011-1-7 17:04:49

业务很简单，当DataSetBroker4上的bxbm改变时，根据业务控制DataSetBroker4上的一个字段的只读，并且控制表单上一个按钮不可用。但是当我选择bxbm时，就提示如图的错误

changansxy · 发表于 2011-1-10 13:35:16

顶一下

luobupo · 发表于 2011-1-10 15:53:44

问题是filed时空的，所以报错。你写的代码不对，这么写两个条件要都满足。
if (Field <> nil) and (Field.FieldName = 'BXBM') then

changansxy · 发表于 2011-1-11 10:35:28

这是DataChange事件的标准写法，怎么可能是错的呢。

changansxy · 发表于 2011-1-11 10:36:56

以前我所有的DataChange事件都是这样写的。不明白这个怎么错了。论坛上也是这种写法

changansxy · 发表于 2011-1-11 13:34:54

再顶

changansxy · 发表于 2011-1-11 14:04:24

怎么没有人理呢？

changansxy · 发表于 2011-1-11 14:53:48

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