共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：汉字转换为字母并取第一个字母
1楼
雨中的泪 发表于：2011/10/25 23:50:00如何实现？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汉字转换为字母并取第一个字母.table |
2楼
czy 发表于：2011/10/26 0:17:00用GetPY啊。
3楼
czy 发表于：2011/10/26 0:23:00你问这个问题我都不好意思给你写代码。
If e.DataCol.Name = "第一列" Then
If e.DataRow.IsNull("第一列") Then
e.DataRow("第二列") = Nothing
Else
e.DataRow("第二列") = GetPY(e.DataRow("第一列"),True)
End If
End If
4楼
rzq1211 发表于：2011/10/26 9:26:00For Each dr As Row In CurrentTable.Rows
If dr.IsNull("第一列") Then
dr("第二列") = Nothing
Else
'dr("第二列") = getpy(dr("第一列").SubString(0,1),True)
dr("第二列") = getpy(dr("第一列"),True)
End If
Next
If dr.IsNull("第一列") Then
dr("第二列") = Nothing
Else
'dr("第二列") = getpy(dr("第一列").SubString(0,1),True)
dr("第二列") = getpy(dr("第一列"),True)
End If
Next
共4 条记录, 每页显示 10 条, 页签:
[1]