Foxtable(狐表)用户栏目专家坐堂 → [求助]错误提示:操作必须使用一个可更新的查询


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

主题:[求助]错误提示:操作必须使用一个可更新的查询

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/23 21:54:00 [显示全部帖子]

没有权限写入数据库文件导致的:https://www.baidu.com/baidu?word=0x80040E09

如果是共享的access数据库,看看是不是共享目录没有开放所有的权限

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/24 9:26:00 [显示全部帖子]

没有办法

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/4 17:15:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/5 10:17:00 [显示全部帖子]

If FileIsOpened("d:\提货透视表")= False Then
    ShowAppWindow("提货透视表",1)
    ShowAppWindow("提货透视表",5)
End If

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/5 11:26:00 [显示全部帖子]

以下是引用ntqhj在2020/3/5 11:19:00的发言:
用了2,就没用1。取汉字的代码可以吗?

什么意思?没看懂

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/5 12:12:00 [显示全部帖子]

这段?

Dim QHZ As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "第一列"
        If QHZ.IsNull("第一列") Then '如果为空
            e.DataRow("第二列") = Nothing
        Else
            If e.DataRow("第一列").length > 3
                e.DataRow("第二列") = e.DataRow("第一列").SubString(0,3)
            Else
                e.DataRow("第二列") = e.DataRow("第一列")
            End If
        End  If
End Select

 回到顶部