Foxtable(狐表)用户栏目专家坐堂 → [求助]新的一年到来时,如何自动更新某列的数值


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

主题:[求助]新的一年到来时,如何自动更新某列的数值

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]新的一年到来时,如何自动更新某列的数值  发帖心情 Post By:2015/9/6 11:48:00 [只看该作者]

如题:

 

某表有一个年份列,其值比如:2015,当新的一年到来时,该列自动更新为2016,该如何实现?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/6 11:52:00 [只看该作者]

单独做一个按钮,更新年份。

 

DataTables("表A").ReplaceFor("第一列", Date.Today.Year)


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/9/6 14:38:00 [只看该作者]

还是手动重置?

 

不能在上面的代码中添加条件,

比如:当 系统时间格式为*/1/1时

DataTables("表A").ReplaceFor("第一列", Date.Today.Year)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/6 14:47:00 [只看该作者]

你可以在afterOpenProject事件判断系统日期

 

If Date.Today.Month = 1 AndAlso Date.Today.Day = 1 Then

    DataTables("表A").ReplaceFor("第一列", Date.Today.Year)

End If


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


加好友 发短信
等级:幼狐 帖子:142 积分:1649 威望:0 精华:0 注册:2014/5/3 14:52:00
  发帖心情 Post By:2016/2/17 13:47:00 [只看该作者]

单独做一个按钮,更新年份。

 

DataTables("表A").ReplaceFor("第一列", Date.Today.Year)

请教如何根据上列功效把第一列(属于文本型)文本内的英文标点符号更改为中文标点符号?例如把此列内所有行内的所有?更改为

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 14:43:00 [只看该作者]

方法一:循环

 

For Each dr As DataRow In DataTables("表A").DataRows
    dr("第一列") = StrToWide(dr("第一列"))
Next

 

方法二:如果是sqlserver数据库,后台修改,然后重新load数据

 

DataTables("表A").SQLReplaceFor("第一列", "Replace(第一列, 'a', 'AA')", "", true)

DataTables("表A").Load

 

 


 回到顶部