【结】查找字段的逻辑问题[问题]**

新来小职员

我做了一个表格文档
有id 、姓名、生日 三个字段
我想实现的功能：输入 id 可以查找并自动填充 姓名、生日。
输入 姓名 可以查找并自动填充 id、生日。
以此类推，输入生日也一样。
出现的问题：用查找属性做无法实现。输入id 时，其他两个字段填充的值也满足了查找条件，结果是系统报错。
如果用代码实现在OnFieldchange写代码，也会陷入死循环，例如：输入id，将查找结果赋值给其他字段，这时候其他字段也触发了onfieldchange事件，然后不断的赋值，不断的触发相同的事件，最后死循环，窗体自动关闭。
如果这个功能一定要用表格文档实现，有可以实现的思路吗？

sjz10

增加一个全局变量，布尔型的，比如blRun
在OnFieldchange事件中
begin
  if blRun then Exit;
  blRun :=True;
  ........//你的处理过程；
blRun :=False;
end;

不知道这样行不行，我是起步初学者。

新来小职员

回楼上，加boolean型判断跟直接判断字段名称的原理是一样的。
之前我已经用过布尔类型判断，不可行。

sjz10

不是，这个变量只是作为一个标记，表明当前的数据改变事件是否被嵌套。如果被嵌套则不再执行，这样就能避免死循环。

alang

在OnFieldChange事件中

DataSet.OnFieldChange := nil;
//填充需要的字段
DataSet.OnFieldChange := DataSetFieldChange;

alang

5楼其实跟2楼差不多，就是保证在事件中修改字段的值不要再次触发这个事件

新来小职员

:cheers: 哦~！原来是判断事件的。顿悟~
我试试啊。

新来小职员

ok了！感谢sjz10和alang，可以结贴了。