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


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

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

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


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望: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

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/3/5 11:19:00 [只看该作者]

用了2,就没用1。取汉字的代码可以吗?

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


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望: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。取汉字的代码可以吗?

什么意思?没看懂

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/3/5 11:37:00 [只看该作者]

附件有取汉字的代码,自己模仿写的,不知道是否合理?老师帮我看下。关闭打开excel,我没用1,用的是2,导致测试一早不成功

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


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望: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

 回到顶部
总数 15 上一页 1 2