以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这个输入的时候如何进行比较?(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10181)

--  作者:YDS
--  发布时间:2011/5/24 16:21:00
--  这个输入的时候如何进行比较?(已解决)


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

 

 

如上所示,要求在B列或者C列输入数据的时候对同行A列进行判断,如果A列为空,则B列或者C列都不允许输入,如果A列不为空则做如下判断

1.b+c<=a  正常场输入

2.b+c>a    弹出提示框,不允许输入

 

 

先在这里谢谢各位了!

[此贴子已经被作者于2011-6-13 8:53:13编辑过]

--  作者:mr725
--  发布时间:2011/5/24 16:29:00
--  

PrepareEdit事件中:

If e.Col.Name = "B"  And e.Row.isNull("A")  OrElse e.Col.Name = "C"  And e.Row.isNull("A")  Then
messagebox.show("请先在A列输入内容","^_^") 

 e.Cancel = True
End If


--  作者:mr725
--  发布时间:2011/5/24 16:35:00
--  

AfterEdit事件:

If e.Col.Name = "B" Orelse e.Col.Name = "C" Then

  If e.Row("B") + e.Row("C") > e.Row("A")
     messagebox.show("B+C>A啦······","^_^")
  End If
End If


--  作者:YDS
--  发布时间:2011/5/24 16:35:00
--  
以下是引用mr725在2011-5-24 16:29:00的发言:

PrepareEdit事件中:

If e.Col.Name = "B"  And e.Row.isNull("A")  OrElse e.Col.Name = "C"  And e.Row.isNull("A")  Then
messagebox.show("请先在A列输入内容","^_^") 

 e.Cancel = True
End If

 

 

你好,这样只是判断了A列是否为空,如下两个条件没有判断

 

1.b+c<=a  正常场输入

2.b+c>a    弹出提示框,不允许输入


--  作者:mr725
--  发布时间:2011/5/24 16:39:00
--  
以下是引用YDS在2011-5-24 16:35:00的发言:

看3楼


--  作者:YDS
--  发布时间:2011/5/24 16:53:00
--  
以下是引用mr725在2011-5-24 16:39:00的发言:

看3楼

 

你好,非常感谢,我已经找到问题所在,谢谢!

[此贴子已经被作者于2011-5-24 16:59:02编辑过]

--  作者:mr725
--  发布时间:2011/5/24 16:58:00
--  
以下是引用YDS在2011-5-24 16:53:00的发言:

你好,没有反应的,是不是我这边有什么问题?

[此贴子已经被作者于2011-5-24 16:56:45编辑过]

检查一下数据类型····  要不发个例子上来。