以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  将日期转换文本  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133666)
--  作者：15666282205
--  发布时间：2019/4/17 20:16:00
--  将日期转换文本
将日期转换文本，把“-”符合去掉，请老师指教
谢谢甜老师，行了。注意，如果日期列以前有数据的话，剪切再粘贴，就自动生成了

[此贴子已经被作者于2019/4/18 15:35:29编辑过]
--  作者：wyz20130512
--  发布时间：2019/4/17 20:31:00
--  
Dim d As Date = Date.Today
Dim s As String = CStr(d)
s = s.Replace("-","")
Output.Show(s)
--  作者：15666282205
--  发布时间：2019/4/17 20:32:00
--  例如：2019-01-01转换为20190101，作为编码使用
如题
--  作者：有点甜
--  发布时间：2019/4/17 20:32:00
--  
Dim d  As Date = Date.Today
Dim s = Format(d, "yyyyMMdd")
msgbox(s)
--  作者：15666282205
--  发布时间：2019/4/17 20:39:00
--  
实际使用的情况是这样的：根据日期列生成一个编码，如果经办人是甲，在编码前加1；如果经办人是乙，在编码前加2.例如：甲   2019-01-01 生成编码120190101；乙 2019-02-03，生成编码220190203.请问可以实现吗？
--  作者：有点甜
--  发布时间：2019/4/17 22:22:00
--  

datacolchanged事件

 


If e.DataCol.name = "经办人" OrElse e.DataCol.name = "日期" Then

    If e.DataRow("经办人") = "甲" Then

        e.DataRow("编号") = 1 & format(e.DataRow("日期"), "yyyyMMdd")

    ElseIf e.DataRow("经办人") = "乙" Then

        e.DataRow("编号") = 2 & format(e.DataRow("日期"), "yyyyMMdd")

    End If

End If