Foxtable(狐表)用户栏目专家坐堂 → 加载数据表,第一行自动解锁是为什么


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

主题:加载数据表,第一行自动解锁是为什么

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


加好友 发短信
等级:婴狐 帖子:40 积分:599 威望:0 精华:0 注册:2019/11/13 11:06:00
加载数据表,第一行自动解锁是为什么  发帖心情 Post By:2019/12/26 15:37:00 [只看该作者]

窗口中加载数据表的时候,表第一行总是自动解锁是为什么?能有什么原因导致这种现象?

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 15:42:00 [只看该作者]

么见过这种情况,一般由其他代码影响了,具体请上传实例说明

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


加好友 发短信
等级:婴狐 帖子:40 积分:599 威望:0 精华:0 注册:2019/11/13 11:06:00
  发帖心情 Post By:2019/12/26 16:11:00 [只看该作者]

窗口里的表是sqltable,我直接用datatable("窗口_表"").save()的方法保存的,经过测试,发现locked修改后,保存不上,是我对sqltable的保存理解有错误吗?


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


加好友 发短信
等级:婴狐 帖子:40 积分:599 威望:0 精华:0 注册:2019/11/13 11:06:00
  发帖心情 Post By:2019/12/26 16:12:00 [只看该作者]

而且只有locked保存不住,其他数据都能保存,是我对保存的概念理解的有误吗?


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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 16:33:00 [只看该作者]

怎么做locked修改的,贴出完整代码说明

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


加好友 发短信
等级:婴狐 帖子:40 积分:599 威望:0 精华:0 注册:2019/11/13 11:06:00
  发帖心情 Post By:2019/12/26 16:38:00 [只看该作者]

With Tables("销售订单_出库明细")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            If .Rows(i).Locked = False  Then
                .Rows(i).Locked = True
                .save()
            End If
        Next
    End If
End With

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 16:44:00 [只看该作者]

试试

With Tables("销售订单_出库明细")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            If .Rows(i).Locked = False  Then
                .Rows(i).datarow("_Locked") = True
            End If
        Next
    End If
    .save()
End With

 回到顶部