以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]新的一年到来时，如何自动更新某列的数值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74199)
--  作者：liuxianjie1980
--  发布时间：2015/9/6 11:48:00
--  [求助]新的一年到来时，如何自动更新某列的数值

如题：

 

某表有一个年份列，其值比如：2015，当新的一年到来时，该列自动更新为2016，该如何实现？
--  作者：大红袍
--  发布时间：2015/9/6 11:52:00
--  

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

 

DataTables("表A").ReplaceFor("第一列", Date.Today.Year)
--  作者：liuxianjie1980
--  发布时间：2015/9/6 14:38:00
--  

还是手动重置？

 

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

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

DataTables("表A").ReplaceFor("第一列", Date.Today.Year)
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/2/17 13:47:00
--  

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

 

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

请教如何根据上列功效把第一列（属于文本型）文本内的英文标点符号更改为中文标点符号？例如把此列内所有行内的所有?更改为？
--  作者：大红袍
--  发布时间：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