以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问如何将日期20140101中的14显示在年份列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61702)

--  作者:ztlyz2004
--  发布时间:2014/12/17 15:25:00
--  [求助]请问如何将日期20140101中的14显示在年份列
请问如何将日期20140101中的14显示在年份列
--  作者:ztlyz2004
--  发布时间:2014/12/17 15:41:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20141217154118.png
图片点击可在新窗口打开查看

--  作者:ztlyz2004
--  发布时间:2014/12/17 15:42:00
--  

请问如何截取字符串中14两个字符

 


--  作者:狐狸爸爸
--  发布时间:2014/12/17 15:44:00
--  

Dim v as String = “20141231”

Dim y As Integer =  v.substring(2,2)

 

 

http://www.foxtable.com/help/topics/1421.htm

 

[此贴子已经被作者于2014-12-17 15:47:53编辑过]

--  作者:ztlyz2004
--  发布时间:2014/12/17 15:53:00
--  

请问以上代码要放到哪里才能自动显示到年份列?

“日期”“年份”如何加入代码?


--  作者:ztlyz2004
--  发布时间:2014/12/17 15:54:00
--  
在列属性里面哪里写入代码?
--  作者:有点甜
--  发布时间:2014/12/17 16:05:00
--  

 看一下Datacolchanged事件

 

http://www.foxtable.com/help/topics/0625.htm

 


--  作者:ztlyz2004
--  发布时间:2014/12/17 16:07:00
--  

Dim v As String ="Tables("汇款记录").日期 "
Dim y As Integer =  v.substring(2,2)
Tables("汇款记录").年份=y

If e.sender.text <> "所有年份" Then
    Tables("汇款记录").Filter= "年份 = \'" & e.sender.text & "\'"
Else
    Tables("汇款记录").Filter = ""
End If


--  作者:有点甜
--  发布时间:2014/12/17 16:09:00
--  

看7楼


--  作者:ztlyz2004
--  发布时间:2014/12/17 16:32:00
--  

ok!谢谢了