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

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

共有10045人关注过本帖树形打印复制链接主题：有关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编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/4/26 14:29:00 [只看该作者]

日期没有yyyymmdd格式吧,只有yyyy-mm-dd.
好似这样?: e.DataRow("入库日期").year & e.DataRow("入库日期").month & e.DataRow("入库日期").days

或者: e.DataRow("入库日期").replace("-","")

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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2010/4/26 14:35:00 [只看该作者]

以下是引用mr725在2010-4-26 14:29:00的发言：
日期没有yyyymmdd格式吧,只有yyyy-mm-dd.
好似这样?: e.DataRow("入库日期").year & e.DataRow("入库日期").month & e.DataRow("入库日期").days

或者: e.DataRow("入库日期").replace("-","")

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

谁说的？format的月份应该是MM,比如：

Output.show(format(date.today(),"yyyyMMdd"))

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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")