有关format日期的问题（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关format日期的问题（已解决）

共有10326人关注过本帖树形打印复制链接主题：有关format日期的问题（已解决）

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

有关format日期的问题（已解决） 发帖心情

Post By：2010/4/26 14:23:00 [显示全部帖子]

在入库明细表的DataColChanged 事件中加入这样的代码

If e.DataCol.Name = "入库日期" Or e.DataCol.Name ="商品代码"
        If e.DataRow.IsNull("入库日期") Or e.DataRow.IsNull("商品代码") Then
            e.DataRow("入库批次") = Nothing '如果为空,则清除
        Else
            e.DataRow("入库批次") = e.DataRow("商品代码") & "-" & format(e.DataRow("入库日期"),"yyyymmdd")

End If
End If
我希望得到的是这样的效果：20100424-DHF00712
可结果却是：20100024-DHF00712 ’ 为何此处红色部分不对，应该是04，却是00

[此贴子已经被作者于2010-4-26 15:14:59编辑过]

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/4/26 14:36:00 [显示全部帖子]

但是我在增加行事件代码中做的另一个代码，却能正确显示啊，呵呵，请看结果：RK-20100424002

e.DataRow("入库单编号") = "RK-" & format(e.DataRow("入库日期"),"yyyymmdd") & format(e.DataRow("编号") ,"000")

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/4/26 14:49:00 [显示全部帖子]

以下是引用程兴刚在2010-4-26 14:39:00的发言：
您就统一规范用大写不就可以了，估计是有的事件没有自动识别大小写吧！

大写字母？
晕死，我改成这样，它才认
format(e.DataRow("入库日期"),"yyyyMMdd")
也就是说，MM非得要大写，年和日都可以

[此贴子已经被作者于2010-4-26 14:51:57编辑过]

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/4/26 15:14:00 [显示全部帖子]

以下是引用程兴刚在2010-4-26 15:07:00的发言：
format格式化日期时间的帮助上就是这样的呀？

这一点我还是延续了易表的写法了，呵呵

下一主题 >> << 上一主题

主题：有关format日期的问题（已解决）