以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]跨表某列中文取首字母  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124490)
--  作者：nellstoke
--  发布时间：2018/9/7 11:23:00
--  [求助]跨表某列中文取首字母
表1的B列需要取得表2中A列中文的首字母大写，这个怎么弄啊 。

比如表2的A列中文是“天天向上”，那其首字母大写应该是TTXS，并且自动赋值进表1的B列。
--  作者：有点甜
--  发布时间：2018/9/7 11:55:00
--  

DataColChanged事件

 

If e.DataCol.Name = "客户姓名" Then
    If e.NewValue > ""
        e.DataRow("编号") = GetPinYin(e.NewValue, 1).ToUpper
    Else
        e.DataRow("编号") = Nothing
    End If
End If