在获得“精”的首字母筛选基础上改进而来,首字母筛选本来就不精准,字符越长越精准。可以单独或混合使用两种输入方式筛选。仅供参考,见笑了。
If e.DataCol.name = "姓名" Then e.DataRow("拼音首字母") = GetPY(e.DataRow("姓名"),True)End If