主题：求助：将一列中文在另一列转换为拼音缩写的代码

当前表事件datacolchanged

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