此主题相关图片如下:image 2.jpg
'''
Dim t As Table =e.Form.controls("Table1").Table
For Each r As Row In t.rows
Dim d2 As Row =e.form.controls("Table2").Table.AddNew
If r IsNot Nothing Then
d2("目录编号") = r("目录编号")
d2("组件名称") = r("组件名称")
d2("规格型号") = r("规格型号")
d2("生产企业") = r("生产企业")
End If
Dim str As String
Dim str2 As String
str=""
str2=""
Dim cntdrs As List(Of DataRow)= DataTables("贮存内容表").Select("勾选=True")
For Each cntdr As DataRow In cntdrs
str &= "、" & cntdr("贮存条件")
str = str.trim("、")
str2="贮存于" & str
Dim idx = str2.LastIndexOf("、")
If idx >= 0 Then
d2("贮存条件")= str2.SubString(0, idx) & str2.SubString(idx+1) '按上图勾选的顺序排列这个字符串,比如:勾选顺序是第二行/第一行/最末行,得到的字符串应该是:贮存于阴凉、相对湿度不超过80%的环境中。请问老师该如何修改代码,谢谢!
End If
Next
Next
Dim gxs As List(Of DataRow)= DataTables("贮存内容表").Select("勾选=True")
For Each gx As DataRow In gxs
gx("勾选")=False
Next