以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]列A,列B的值比较大小 datachanged事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12150)

--  作者:gaoyong30000
--  发布时间:2011/8/24 14:03:00
--  [求助]列A,列B的值比较大小 datachanged事件

列A 列B都是日期型数值  

如果列B  小于 列A  则出现 messagebox提示

 

datachanged事件该怎么写?


--  作者:blackzhu
--  发布时间:2011/8/24 14:21:00
--  
if e.DataCol.Name="B列" then  \'如果触动是B列
  dim dr as datarow =e.datarow   \'定义当前行
   if dr("B列")<dr(A列") then     \'如果B列小于A列
     messagebox("B列小于A列")        \'提示
 End if
End if

--  作者:blackzhu
--  发布时间:2011/8/24 14:22:00
--  
提示加上Show
--  作者:gaoyong30000
--  发布时间:2011/8/24 19:06:00
--  

ok了!