以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  A列B列大小判定问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85418)

--  作者:benwong2013
--  发布时间:2016/5/25 13:32:00
--  A列B列大小判定问题
在datacolchanging设置了以下,

If e.DataCol.Name= "B列" Then
    Dim dr As DataRow =e.DataRow 
    If dr("B列“)>dr("A列") Then
        messagebox.show("B列大于A列")
        e.Cancel = True
    End If
End If

原来想如输入B列大于A列的值时,系统自动提醒,并取消B列所输入的值,但发现这个代码是有问题;

--  作者:benwong2013
--  发布时间:2016/5/25 13:36:00
--  
列都是设置为整数数据类型;
--  作者:大红袍
--  发布时间:2016/5/25 14:16:00
--  
If e.DataCol.Name= "B列" Then
    Dim dr As DataRow =e.DataRow 
    If e.NewValue>dr("A列") Then
        messagebox.show("B列大于A列")
        e.Cancel = True
    End If
End If