标题：关于取汉字的首字符

我想第二列取第一列内汉字的首字符，自动添加到第二列，就像易表中的刷新工式一样，怎么办，谢谢

CurrentTable.current("第二列") = left(CurrentTable.current("第一列"),1)

谢谢，再请教，放到第二列公式里吗

如果是整张表一次性刷新第二列的话：

For i As Integer = 0 To Currenttable.count -1

    CurrentTable.Rows(i)("第二列") = left(CurrentTable.Rows(i)("第一列"),1)

Next

 

如果第二列是表达式列：   SubString([第一列],1,1)

非常感谢

如果是一条一条录入，2楼代码放在dadacolchanged事件中，稍该一下：

If e.DataCol.Name = "第一列" Then
      e.DataRow("第二列")  = left(e.DataRow("第一列"),1)
End If

 

或用4楼表达式。

 

 

一次刷新用按钮： 代码在4楼 For 。。。 Next