- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]我编制的单据编号里面有日期信息，如何在日期列自动生成日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101404)
-- 发布时间：2017/5/30 13:49:00
-- [求助]我编制的单据编号里面有日期信息，如何在日期列自动生成日期
比如 LS10170530 后面六位数代表2017年05月30日，怎么在日期列直接显示出来？
我知道要在DateColChanged 里面编写
但是具体要怎么编呢？谢谢
[此贴子已经被作者于2017/5/30 13:50:05编辑过]
-- 发布时间：2017/5/31 10:10:00
--
If e.DataCol.Name = "编号" Then
If e.NewValue = Nothing OrElse e.newvalue.length < 6 Then
e.DataRow("日期") = Nothing
Else
Dim str As String = right(e.newvalue,6)
e.DataRow("日期") = new Date(str.SubString(0,2), str.SubString(2,2), str.SubString(4))
End If
End If
-- 发布时间：2017/5/31 12:20:00
-- 回复：（有点色）If e.DataCol.Name = "编号" Then&nb...
-- 发布时间：2017/5/31 12:47:00
--
这个代码显示出来的是0017-05-30啊。。。。。
-- 发布时间：2017/5/31 13:06:00
--
If e.DataCol.Name = "编号" Then |
[此贴子已经被作者于2017/5/31 13:06:25编辑过]
-- 发布时间：2017/5/31 13:19:00
--
这个可以！谢谢！ 也谢谢大版主！
-- 发布时间：2017/5/31 13:22:00
--
要理解代码，稍作修改即可！建议还是要多看帮助或视频教程。
-- 发布时间：2017/5/31 14:26:00
--
很有帮助，谢谢