Foxtable(狐表)用户栏目专家坐堂 → [求助]请问如何将日期20140101中的14显示在年份列


  共有3514人关注过本帖树形打印复制链接

主题:[求助]请问如何将日期20140101中的14显示在年份列

帅哥哟,离线,有人找我吗?
ztlyz2004
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
[求助]请问如何将日期20140101中的14显示在年份列  发帖心情 Post By:2014/12/17 15:25:00 [只看该作者]

请问如何将日期20140101中的14显示在年份列

 回到顶部
帅哥哟,离线,有人找我吗?
ztlyz2004
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By:2014/12/17 15:41:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
ztlyz2004
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By:2014/12/17 15:42:00 [只看该作者]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By:2014/12/17 15:53:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
ztlyz2004
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By:2014/12/17 15:54:00 [只看该作者]

在列属性里面哪里写入代码?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/17 16:05:00 [只看该作者]

 看一下Datacolchanged事件

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
ztlyz2004
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/17 16:09:00 [只看该作者]

看7楼


 回到顶部
帅哥哟,离线,有人找我吗?
ztlyz2004
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:1245 威望:0 精华:0 注册:2012/2/3 14:30:00
  发帖心情 Post By:2014/12/17 16:32:00 [只看该作者]

ok!谢谢了

 


 回到顶部