参考代码
Dim dt As DataTable = DataTables("家具信息表")For Each dr As DataRow In dt.DataRows dr("名称拼音") = GetPy(dr("家具名称"))Next
加好友 
发短信
Post By：2016/11/16 18:56:00 [显示全部帖子]
