Foxtable(狐表)用户栏目专家坐堂 → [求助] 逻辑列


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

主题:[求助] 逻辑列

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
[求助] 逻辑列  发帖心情 Post By:2018/11/27 18:49:00 [显示全部帖子]

我在表中有这个逻辑列,当我选择后确认后,就不允许再反选,应在表属性中如何设置,谢谢。
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/11/28 7:59:00 [显示全部帖子]

版主, 这个有点不适合。 可不可以这样, 帮忙在表属性中增加一行,一旦我确认打钩后,这个罗辑列就有灰色。

 

 

下面的不是表属性的成员,要怎么改,谢谢。


e.sender.Enabled = False


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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/11/28 22:07:00 [显示全部帖子]

 

版主,这个键无用,我钩选后,还是能反钩选的。

 

If e.datacol.name = "第一列" AndAlso e.newValue = False Then

    e.cancel = true

End If


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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/12/1 10:22:00 [显示全部帖子]

版主,窗口一打开,逻辑列中已经选中的所有记录自动去除购选,如何修改如下的代码,麻烦了。

 

If e.datacol.name = "第一列" AndAlso e.newValue = False Then

    e.cancel = true

End If


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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/12/1 18:05:00 [显示全部帖子]

版主,我要要加到click中,以下的如何转换

 

systemready = true

datatables("某表").replace("第一列",false,"第一列=true")
systemready = false

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/12/2 9:44:00 [显示全部帖子]

版主,我用这个出现错误了,能帮忙改一下吗? 谢谢。

 

Dim t As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each r As Row In t.rows
 
    If r("Import") = True Then
        r("Import") = False
       
    End If
   
Next


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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/12/2 11:25:00 [显示全部帖子]

不对,出现了问题,如图
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/12/2 14:03:00 [显示全部帖子]

解决了,应该是这样的

 

Dim t As Table = e.Form.controls("Table1").Table

For Each r As Row In t.rows
   
    If r("Import") = True Then
       
        r("import")= False
       
    End If
   
Next


 回到顶部