| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于取汉字的首字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9131) |
| -- 作者：表之狂 -- 发布时间：2011/2/24 21:53:00 -- 关于取汉字的首字符 我想第二列取第一列内汉字的首字符，自动添加到第二列，就像易表中的刷新工式一样，怎么办，谢谢 |
| -- 作者：mr725 -- 发布时间：2011/2/24 22:04:00 -- CurrentTable.current("第二列") = left(CurrentTable.current("第一列"),1) |
| -- 作者：表之狂 -- 发布时间：2011/2/24 22:07:00 -- 谢谢，再请教，放到第二列公式里吗 |
| -- 作者：mr725 -- 发布时间：2011/2/24 22:10:00 -- 如果是整张表一次性刷新第二列的话： For i As Integer = 0 To Currenttable.count -1 CurrentTable.Rows(i)("第二列") = left(CurrentTable.Rows(i)("第一列"),1) Next
如果第二列是表达式列： SubString([第一列],1,1) |
| -- 作者：表之狂 -- 发布时间：2011/2/24 22:14:00 -- 非常感谢 |
| -- 作者：mr725 -- 发布时间：2011/2/24 22:21:00 -- 如果是一条一条录入，2楼代码放在dadacolchanged事件中，稍该一下： If e.DataCol.Name = "第一列" Then
或用4楼表达式。
一次刷新用按钮： 代码在4楼 For 。。。 Next |