Foxtable(狐表)用户栏目专家坐堂 → 添加按钮,全部锁定行,除逻辑列不确定的除外


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

主题:添加按钮,全部锁定行,除逻辑列不确定的除外

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
添加按钮,全部锁定行,除逻辑列不确定的除外  发帖心情 Post By:2013/5/15 17:07:00 [只看该作者]

在来求教一个问题

有一列是逻辑格式,逻辑格式已设置为确定,不确定 ,如何添加一个按钮实现全部锁定行,但除逻辑列不确定的除外

 


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


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

循环所有行,判断逻辑列是否为TRUE 是TRUE就锁定行.

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/15 17:12:00 [只看该作者]

但如果我一张表有好几个逻辑格式的列呢


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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/5/15 17:14:00 [只看该作者]

多列就判断那几列的行咯,如果是以一列为标准就判断那一列就可以了。


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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/15 17:19:00 [只看该作者]

With DataTables("订单").DataRows(0) '
    If .
IsNull("结账日期") = False Then '
        .
Locked = True '    End If
End With

是不是这样


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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/5/15 17:24:00 [只看该作者]

这样只是判断是不是空就锁定了

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/15 17:29:00 [只看该作者]

哪应该如何写

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/15 17:30:00 [只看该作者]

我刚测试这个  只锁定了第一行  其余的都没有锁定


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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/5/15 17:34:00 [只看该作者]

 

在DataColChanged

 If e.DataCol.Name = "已结帐" Then '如果是已结帐列的内容变动
   
If e.NewValue = True Then '而且变动后的值是True(已勾选)
        e.
DataRow.Locked = True '那么此行
   
End If
End
If

[此贴子已经被作者于2013-5-15 17:38:17编辑过]

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/15 17:39:00 [只看该作者]

怎么没有了

 回到顶部
总数 11 1 2 下一页