Foxtable(狐表)用户栏目专家坐堂 → 没看表被锁,代码也没有做锁,表无法新增行,是什么原因?


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

主题:没看表被锁,代码也没有做锁,表无法新增行,是什么原因?

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
没看表被锁,代码也没有做锁,表无法新增行,是什么原因?  发帖心情 Post By:2024/8/8 9:50:00 [只看该作者]

没看表被锁,代码也没有做锁,之前做一个表尾统计,之后把表尾统计注掉,表还是无法新增行,是什么原因?

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/8 9:53:00 [只看该作者]

去掉所有表事件看看

重新添加这个表看看

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/8/8 16:11:00 [只看该作者]

If Forms("窗口1").Opened() Then'
    If e.Table.cols.contains("产品编号") AndAlso Tables("窗口1_Table2").cols.contains("产品编号") Then '
        Dim t As Table = Tables("窗口1_Table2") '
        With Tables("窗口1_Table1") '
            If .Current Is Nothing Then
                t.Filter = "False"
                
            Else 
                t.Filter = "产品编号 = '" & .Current("产品编号") & "'" 
                 
            End If
        End With
        
    End If 
End If

是上面代码,造成表2不能新增行,如何改?


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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/8 16:28:00 [只看该作者]

做了筛选,新增行必须给筛选条件对应的列赋值,比如产品编号,否则不符合条件的行就看不到了。并不是不能新增,只是新增了,但是看不到

 回到顶部