- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何将日期列的4位年份数字显示为后两位 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102350)
-- 发布时间：2017/6/18 11:21:00
-- [求助]如何将日期列的4位年份数字显示为后两位
尊敬的学长、兄台：
如何将日期列的4位年份数字显示为后两位， 例如2017-06-15 显示为17-06-15
-- 发布时间：2017/6/18 11:28:00
--
Dim rq As Date
Dim zc As String= cstr(rq.Year).SubString(2) & Format(rq,"-MM-dd")
-- 发布时间：2017/6/18 11:40:00
--
谢谢您！
请问这串代码是写入到哪里呢？ 是在列属性里那个基本属性输入呢？
此主题相关图片如下：qq图片20170618113915.png
-- 发布时间：2017/6/18 12:00:00
--
表事件 DrawCell
If e.Col.Name = "订单编制日" Then
If e.Text.Length = 10 Then
e.Text = e.Text.SubString(2) \'只是绘制,并不会改变原来的格式
End If
End If
-- 发布时间：2017/6/18 12:13:00
--
非常感谢您如此高效准确的回复，我对Foxtable的越来越有信心，谢谢！
-- 发布时间：2017/6/18 12:31:00
--
您好！
If e.Col.Name = "最近拜访" Then
If e.Text.Length = 10 Then
e.Text = e.Text.SubString(2) \'只是绘制,并不会改变原来的格式
End If
End If
If e.Col.Name = "上样日期" Then
If e.Text.Length = 10 Then
e.Text = e.Text.SubString(2) \'只是绘制,并不会改变原来的格式
End If
End If
If e.Col.Name = "首单日期" Then
If e.Text.Length = 10 Then
e.Text = e.Text.SubString(2) \'只是绘制,并不会改变原来的格式
End If
End If
请问上面三代码组可否缩编？谢谢！
-- 发布时间：2017/6/18 16:55:00
--
Select Case e.Col.Name
Case "最近拜访", "首单日期", "上样日期"
If e.Text.Length = 10 Then
e.Text = e.Text.SubString(2) \'只是绘制,并不会改变原来的格式
End If
End Select