- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将数字转换为字符组合 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194839)
-- 发布时间：2025/1/20 8:43:00
-- 如何将数字转换为字符组合
Select Case e.DataCol.Name
Case "应选户型_120型A", "应选户型_90型B", "应选户型_60型C", "应选户型_30型D"
If e.DataRow.IsNull("应选户型_120型A") OrElse e.DataRow.IsNull("应选户型_90型B") OrElse e.DataRow.IsNull("应选户型_60型C") OrElse e.DataRow.IsNull("应选户型_30型D") Then \'身份证号码是否为空
e.DataRow("户型汇总") = Nothing \'如果为空,则清除出生日期
Else
\'如何将数字转换成字符组合？
e.DataRow("户型汇总") =
End If
End Select
请老师看看例子
这样可以吗
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目250120.rar |
这样可以吗
-- 发布时间：2025/1/20 9:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目250120.zip |
-- 发布时间：2025/1/20 10:11:00
--
Select Case e.DataCol.Name
Case "应选户型_120型A", "应选户型_90型B", "应选户型_60型C", "应选户型_30型D"
Dim s As String = String .Join ("", Enumerable.repeat("A", e.DataRow("应选户型_120型A"))) &
String .Join ("", Enumerable.repeat("B", e.DataRow("应选户型_90型B"))) &
String .Join ("", Enumerable.repeat("C", e.DataRow("应选户型_60型C"))) &
String .Join ("", Enumerable.repeat("D", e.DataRow("应选户型_30型D")))
e.DataRow("户型汇总") = String.join(",", s.tolist)
End Select
-- 发布时间：2025/1/20 10:43:00
--
非常感谢两位老师的代码，假若“户型汇总”列不用字母表示（A,A,B,C），就直接用户型表示（120型, 120型, 90型, 60型），则这个代码又如何变化？
-- 发布时间：2025/1/20 10:46:00
--
msgbox("应选户型_120型A".split("_")(1))
-- 发布时间：2025/1/20 11:15:00
--
谢谢老师，代码非常非常的完美