Foxtable(狐表)用户栏目专家坐堂 → 求助:锁定表时,只留”是否打印“逻辑列不锁定,怎么编程?谢谢!


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

主题:求助:锁定表时,只留”是否打印“逻辑列不锁定,怎么编程?谢谢!

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


加好友 发短信
等级:幼狐 帖子:82 积分:614 威望:0 精华:0 注册:2016/12/22 20:54:00
求助:锁定表时,只留”是否打印“逻辑列不锁定,怎么编程?谢谢!  发帖心情 Post By:2017/2/12 22:38:00 [显示全部帖子]

以下方法都出错!不知如何修改?

 

 

 

        以上两种方法,错误信息度一样。错误信息如下:

 

         .NET Framework 版本:2.0.50727.8009
         Foxtable 版本:2016.7.29.1
         错误所在事件:窗口,工资查询,AfterLoad
         详细错误信息:
         未找到类型“Boolean”的公共成员“Locked”。

 

 

试用方法一:

Dim drs As List(Of DataRow)
drs = DataTables("工资").Select("")
For Each dr As DataRow In drs
    dr.Locked = True                     ‘先锁定表
    dr("是否打印").Locked =False     ‘在再锁列,这一条语句有错!!!!!

Next

 

 

 

试用方法二:

For i As Integer =0 To Tables("工资").count-1

    dataTables("工资").dataRows(i).Locked = true           ‘先锁定表
    Tables("工资").Rows(i)("是否打印").Locked = False      ‘在再锁列,这一条语句有错!!!!!
Next

 


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


加好友 发短信
等级:幼狐 帖子:82 积分:614 威望:0 精华:0 注册:2016/12/22 20:54:00
  发帖心情 Post By:2017/2/12 22:50:00 [显示全部帖子]

也就是如何从锁定表中解锁特定列?

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


加好友 发短信
等级:幼狐 帖子:82 积分:614 威望:0 精华:0 注册:2016/12/22 20:54:00
  发帖心情 Post By:2017/2/12 22:52:00 [显示全部帖子]

或者如何从锁定行中解锁特定单元格?

 


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


加好友 发短信
等级:幼狐 帖子:82 积分:614 威望:0 精华:0 注册:2016/12/22 20:54:00
  发帖心情 Post By:2017/2/17 19:51:00 [显示全部帖子]

For Each dc As DataCol In DataTables("订单").DataCols
    If dc.Name="是否打印流程单"  Then
        DataTables("订单").DataCols(dc.Name).AllowEdit = True
    Else
        DataTables("订单").DataCols(dc.Name).AllowEdit = False
    End If
Next

 


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


加好友 发短信
等级:幼狐 帖子:82 积分:614 威望:0 精华:0 注册:2016/12/22 20:54:00
  发帖心情 Post By:2017/2/17 19:56:00 [显示全部帖子]

这几天忙,没来这,通过钻研,用下面的方法解决了。但是,还是“有点色”老师的代码精简!学习了,谢谢!

 

For Each dc As DataCol In DataTables("订单").DataCols
    If dc.Name="是否打印流程单"  Then
        DataTables("订单").DataCols(dc.Name).AllowEdit = True
    Else
        DataTables("订单").DataCols(dc.Name).AllowEdit = False
    End If
Next

 


 回到顶部