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
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