主题：[求助]如何让表中的一列显示另一列的内容的拼音首字母？

当前表事件datacolchanged

Dim s As String=e.datarow("客户名称")
If e.datarow("客户名称") IsNot Nothing Then
e.datarow("拼音简码")=getpy(s,True)
End If