主题：[求助]根据登录用户取拼音首字母

大家好，我是新手，有个问题一直没有搞懂，学习了也没有搞成功，请大家帮忙

我想在

DataRowAdding

事件下，取当前登录用户的用户名，然后取拼音首字母，填写到表中某字段列

我之前这样写：

Dim us As Integer
    us = User.Name
    e.DataRow("jigou_j") = GetPY("us", True)

但是提示无法转换，请高手看看，谢谢