Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何将数字转换为字符组合

1楼
jhxb8821 发表于: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

这样可以吗
2楼
有点蓝 发表于:2025/1/20 9:50:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目250120.zip

3楼
y2287958 发表于: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
4楼
jhxb8821 发表于:2025/1/20 10:43:00
非常感谢两位老师的代码,假若“户型汇总”列不用字母表示(A,A,B,C),就直接用户型表示(120型, 120型, 90型, 60型),则这个代码又如何变化?
5楼
有点蓝 发表于:2025/1/20 10:46:00
msgbox("应选户型_120型A".split("_")(1))

http://www.foxtable.com/webhelp/topics/1338.htm
6楼
jhxb8821 发表于:2025/1/20 11:15:00
谢谢老师,代码非常非常的完美
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.