以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口表重复录入判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46072)
--  作者：红颜
--  发布时间：2014/2/16 21:28:00
--  [求助]窗口表重复录入判断

If Tables("收费明细").Current IsNot Nothing Then
    Dim brxm As String = Tables(" 收费明细 ").Current("病人姓名")   
    If Forms("门诊收费").Controls("ComboBox1").value > brxm  Then
        Vars("info")="不能同时多人收费!"
        Forms("系统提示").Show()
        Return
    End If
End If

问题在>，目的是：如果("ComboBox1").value的值不等于brxm ，就不能继续录入
[此贴子已经被作者于2014-2-16 21:30:57编辑过]
--  作者：y2287958
--  发布时间：2014/2/16 21:38:00
--  
“<>”