主题：[求助]提取文字的首字母代码

DataColChanged事件写代码

If e.DataCol.Name = "中文" Then
    If e.NewValue > ""
        e.DataRow("拼音") = GetPinYin(e.NewValue, 1)
    Else
        e.DataRow("拼音") = Nothing
    End If
End If

http://www.foxtable.com/webhelp/scr/1270.htm