控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2402人关注过本帖树形打印复制链接主题：控件

qinlao666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

控件

Post By：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判断不起作用

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2015/9/21 14:47:00 [只看该作者]

谢谢老师

主题：控件