'将阿拉伯数字转换为中文小写格式,下列代码非常完美
Select Case e.DataCol.name
Case "要转换的阿拉伯数字"
If e.DataRow.IsNull("要转换的阿拉伯数字") Then
e.DataRow("自动转换为中文小写") = Nothing
Else
Dim dr As String = e.DataRow("要转换的阿拉伯数字") '要转换的阿拉伯数字。
e.DataRow("自动转换为中文小写") = CLNum(dr) '输出为:一二三
End If
End Select
如果反过来,将中文小写转换为阿拉伯数字格式,下列代码如何修改
Select Case e.DataCol.name
Case "要转换的中文小写"
If e.DataRow.IsNull("要转换的中文小写") Then
e.DataRow("自动转换为阿拉伯数字") = Nothing
Else
Dim dr As String = e.DataRow("要转换的中文小写") '要转换的阿拉伯数字。
e.DataRow("自动转换为阿拉伯数字") =
End If
End Select
想要的结果:一转换为:1;二转换为:2;三转换为:3;四转换为:4;...十一转换为:11;十二转换为:12;... 二十一转换为:21;二十二转换为:22;...
请问老师有没最简洁的办法,比如用一个函数解决
[此贴子已经被作者于2024/5/16 17:42:54编辑过]