Foxtable(狐表)用户栏目专家坐堂 → 这二代码,功能冲突,如何处理?


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

主题:这二代码,功能冲突,如何处理?

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
这二代码,功能冲突,如何处理?  发帖心情 Post By:2023/3/26 12:57:00 [显示全部帖子]

这二代码,功能冲突,如何处理?


Dim t1 As String = e.form.controls("TextBox1").text 
Dim t2 As String = e.form.controls("ComboBox1").text 
Dim t3 As String = e.form.controls("ComboBox2").text 
Dim t4 As String = e.form.controls("TextBox9").text 
Dim t5 As String = e.form.controls("TextBox10").text 
Dim t6 As String = e.form.controls("ComboBox5").text 
Dim t7 As String = e.form.controls("DateTimePicker1").text 

e.form.controls("按键1").enabled = Not ( t1 = "" OrElse t2 = "" _
OrElse t3 = "" OrElse t4 = "" OrElse t5 = "" _
OrElse t6 = "" OrElse t7 = "") 

--------------------------------------------------


If DataTables("表A").compute("count(审核)", "审核=false") > 0 Then
    forms("入库登记").controls("按键1").enabled = False
 
Else
    forms("入库登记").controls("按键1").enabled = True
    
End If


---------------------------------------------------------------

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/3/26 22:10:00 [显示全部帖子]

需求:

如果  t1、t2、t3t4、t5、t6t7为空  和   "表A").compute("count(审核)", "审核=false"

入库登记窗口上的按键1,为不编辑

否则
入库登记窗口上的按键1,为编辑




 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/3/27 11:04:00 [显示全部帖子]

需求:如果表A的"保存状态=True"和 "表B"的 "审核=false"时, 按键2为不可编辑.执行下面代码,没报错,但无效,没任何反应。如何处理?

e.form.controls("按键2").enabled = DataTables("表A").compute("count(保存状态)", "保存状态=True") _
AndAlso DataTables("表B").compute("count(审核)", "审核=false") = 0

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/3/27 13:04:00 [显示全部帖子]

e.form.controls("按键2").enabled = DataTables("表A").compute("count(保存状态)", "保存状态=True")>0 orelse DataTables("表B").compute("count(审核)", "审核=false") = 0

测试一下条件满足,但没有反应

图片点击可在新窗口打开查看此主题相关图片如下:窗口限制-01.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/3/28 0:10:00 [显示全部帖子]

老师,我测试一下,代码放在窗口打开后事件,是可以实现,但需做一次后,要重新打开一次,才能生效,这样不太友好,我把它放在窗口全局事件里,代码执行没反应

需求:如果表A的只对"保存状态=True"和 "表B"的 "审核=全false"时, 按键2为不可编辑.

说明:表A的只对"保存状态=True","表B"的 "审核=全false"时, 按键2为不可编辑,当表A的有一条"保存状态=全false","表B"的 "审核=全false"时, 按键2为可编辑

 回到顶部