Foxtable(狐表)用户栏目专家坐堂 → [求助]格式化日期


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

主题:[求助]格式化日期

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


加好友 发短信
等级:婴狐 帖子:35 积分:365 威望:0 精华:0 注册:2018/10/10 14:59:00
[求助]格式化日期  发帖心情 Post By:2018/11/15 10:54:00 [显示全部帖子]

要把日期列格式化为 年月

比如 2018-10-12 格式化为 201810

 format(“日期”,yyyymm)不对,应该如何修改


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


加好友 发短信
等级:婴狐 帖子:35 积分:365 威望:0 精华:0 注册:2018/10/10 14:59:00
  发帖心情 Post By:2018/11/15 11:00:00 [显示全部帖子]

我之前测试过成功,后来忘记了,就是有两列,一列日期,一列是年月,输入日期2018-10-12后,年月列自动填入 201810,用的是format

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


加好友 发短信
等级:婴狐 帖子:35 积分:365 威望:0 精华:0 注册:2018/10/10 14:59:00
  发帖心情 Post By:2018/11/15 11:18:00 [显示全部帖子]

请老师再帮忙看看该如何修改 datacolchanged事件

 

Select e.DataCol.Name
    Case "日期"
        Dim lb As String ="Y"
        If e.DataRow("单号").StartsWith(lb) = False '如果单据编号前缀不符
            Dim idx As Integer = e.DataRow("_Identify")
            e.DataRow("单号") = lb & Format(idx,"000000")
            e.DataRow("年月") = Format(e.newvalue,"YYYYMM")
        End If
End Select


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


加好友 发短信
等级:婴狐 帖子:35 积分:365 威望:0 精华:0 注册:2018/10/10 14:59:00
  发帖心情 Post By:2018/11/15 11:36:00 [显示全部帖子]

谢谢!

这个代码有个问题,年月是空白的话可以改写,不是空白不能改写。或者之前按照2018-10-12输入,会自动填入201810,如果改为2018-11-12,不能同步更新为201811


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


加好友 发短信
等级:婴狐 帖子:35 积分:365 威望:0 精华:0 注册:2018/10/10 14:59:00
  发帖心情 Post By:2018/11/15 12:23:00 [显示全部帖子]

谢谢,麻烦帮我看看这个代码,关联订单日期 不能同步更新的原因,比如改了父表,子表不能同步更改。也导不出正确的年月

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.table


 回到顶部