Dim str As String
str=""
Dim cntdrs As List(Of DataRow)= DataTables("贮存内容表").Select("勾选=True")
For Each cntdr As DataRow In cntdrs
str &= "、" & cntdr("贮存条件")
str = str.trim("、")
d2("贮存条件") ="贮存于" & str
Next
根据“贮存内容表”的勾选行,上面代码运行后,其d2("贮存条件") 的内容为:“贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品、的室内。”
问题:如何修改代码把最后一个“、”去掉。谢谢!(即变成:贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品的室内。)
补充:根据代码生成的“、”的个数不固定的。
[此贴子已经被作者于2019/6/25 17:23:10编辑过]