Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复选框设定


  共有3744人关注过本帖树形打印复制链接

主题：[求助]复选框设定
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]复选框设定  发帖心情 Post By：2014/3/4 16:51:00 [只看该作者]

如下图，实现如下功能有点问题：
表中符合条件的任一行的列（联系信息）（逻辑型）是true，点击新增按钮窗口中的checkbox1都不能用。
新增按钮的代码：


For Each r As Row In Tables("地址信息").Rows
    If r("联系信息")=1 Then
        e.Form.Controls("CheckBox1").Enabled=False
    Else
        e.Form.Controls("CheckBox1").Enabled=True
    End If
Next
With Tables("地址信息")
    .AllowEdit=True
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Dim r As Row=Tables("地址信息").addnew
        r("patientsID")=e.Form.controls("txt_patients").text
        e.Form.Controls("Btn_edit").Enabled=False
        e.Form.Controls("Btn_delete").Enabled=False
        e.Form.Controls("Btn_first").enabled=False
        e.Form.Controls("Btn_last").enabled=False
        e.Form.Controls("Btn_next").enabled=False
        e.Form.Controls("Btn_pre").enabled=False
        e.Form.Controls("Btn_ok").enabled=True
        e.Form.Controls("Btn_cancel").enabled=True
        e.Form.Controls("Btn_exit").enabled=False
    End If
End With


图片点击可在新窗口打开查看此主题相关图片如下：360软件小助手截图20140304164330.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/4 17:09:00 [只看该作者]

没明白你的意思,请上个例子看看.

 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/3/4 17:13:00 [只看该作者]

就是说窗口表中任意一行的“联系信息”为TRUE时，点击“新增信息”按钮，控件“联系信息”均为“不可用”。

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/4 17:15:00 [只看该作者]

e.Form.Controls("CheckBox1").Enabled=True
For Each r As Row In Tables("地址信息").Rows
    If r("联系信息")=1 Then
        e.Form.Controls("CheckBox1").Enabled=False
        Exit For
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/4 17:16:00 [只看该作者]

If DataTables("地址信息").Compute("count(_Identify)","联系信息=true")>0 Then
    e.Form.Controls("要禁用的控件").Enabled=False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/3/4 17:18:00 [只看该作者]

谢谢lsy。从逻辑上看可以，但还是有点问题。达到效果。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询