以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74863)
--  作者：qinlao666
--  发布时间：2015/9/21 14:40:00
--  控件
Dim r As Row = Tables("报价主表").Current
If r("报价单号") IsNot Nothing Then
   
    e.Form.Controls("新增").Enabled = False
Else
   
    e.Form.Controls("新增").Enabled = true
   
    
End If

请老师帮我看下，IF判断不起作用
--  作者：大红袍
--  发布时间：2015/9/21 14:42:00
--  

1、代码这样写

 

If r("报价单号") IsNot Nothing Then

 

改成

 

If r.IsNull("报价单号") = False Then

 

2、你需要在CurrentChanged事件写代码，才会对每一行有效。

[此贴子已经被作者于2015/9/21 14:48:42编辑过]
--  作者：qinlao666
--  发布时间：2015/9/21 14:47:00
--  
谢谢老师