老师你好：
我的需求：现场检查砼坍落度:2次,实测坍落度:128 [00:00] 250
[00:00] ,符合设计要求;
改为：现场检查砼坍落度:2次,实测坍落度:128 250 ,符合设计要求;
此主题相关图片如下：微信截图_20180527044013.png
下面这段代码如何修改：
Case "坍落度_第1次_值","坍落度_第2次_值","坍落度_第3次_值","坍落度_第4次_值","坍落度_第5次_值","坍落度_第6次_值"
If e.DataCol.Name.StartsWith("坍落度_") 'AndAlso e.DataCol.Name.EndsWith("_值") Then
Dim i As Integer = 0
Dim st As String
For Each dc As DataCol In e.DataTable.datacols
If dc.Name.StartsWith("坍落度_") AndAlso dc.Name.EndsWith("_值") AndAlso dr.IsNull(dc.Name) = False Then
i += 1
Dim ss As String = dc.name
Dim s As String = ss.SubString(0,ss.LastIndexOf("_"))
st = st & dr(s & "_值") & " [" & Format(dr(s & "_时间"),"HH:mm") & "] "
End If
Next
dr("坍落度_共计_次数") = i
If dr("坍落度_共计_次数") > 0 Then
dr("抽检坍落度") = "现场检查砼坍落度:" & dr("坍落度_共计_次数") & "次,实测坍落度:" & st & ",符合设计要求;"
Else
dr("抽检坍落度") = ""
End If
End If
加好友 
发短信
Post By：2018/5/27 4:43:00 [显示全部帖子]
