标题：(有图）当“礼品费”的单元格的值大于零时，在“礼品清单”栏里必须写上清单，就是必须有汉字，怎么办？

示例：礼品费        礼品费清单

           50        水果20，饮料30    

       

        这是表的两列，有的人填了50元的费用，不写清单。现在希望在填了50之后，触发一个事件，比如，提示：“请填写礼品清单！”，如果不填就不能通过，提示反复出现，直到填了为止。当礼品费等于0或为空时提示不出现，不用填清单。请教各位大虾~~~~怎么写代码。

If e.DataRow.Isnull("礼品费") Or "0" Then
  e.DataRow("礼品清单")=Nothing
 Else
  messagebox.show("请填写清单,谢谢!")
 End If

  我写了个这样的，只能提示，不能强制录入。

当“礼品费”的单元格的值大于零时，在“礼品清单”栏里必须写上清单，就是必须有汉字，怎么办？（有图）   Post By：2011-8-25 7:58:00 [只看该作者]

示例：礼品费        礼品费清单            50        水果20，饮料30                     这是表的两列，有的人填了50元的费用，不写清单。现在希望在填了50之后，触发一个事件，比如，提示：“请填写礼品清单！”，如果不填就不能通过，提示反复出现，直到填了为止。当礼品费等于0或为空时提示不出现，不用填清单。请教各位大虾~~~~怎么写代码。

If e.col.name = "礼品费" Then
  mEssageBox.show("请填写或更改清单,否则将不予报销!")
End If

If e.col.name = "业务招待费" Then
  mEssageBox.show("请填写或更改清单,否则将不予报销!")
End If

新写的  但是只能提醒  不能强制返回

求助

 

参考表事件中的ValidateEdit

上面的代码意思是如果触动的是礼品费列,有如果礼品费列不为空,而礼品清单为空,那么提示!你要返回,返回什么?

这个问题好像不是太简单，难点在messagebox后焦点难于控制，比如出现提示框后直接用回车键来确定的话，焦点就往后移一单元格了，即使在提示后用Select定位到礼品清单列也不行。

如果焦点不能准确定位到礼品清单列，则难于控制必须输入清单。