- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何合并数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119549)
-- 发布时间：2018/5/27 4:43:00
-- 如何合并数据
老师你好：
我的需求：现场检查砼坍落度: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
-- 发布时间：2018/5/27 15:19:00
--
st = st & dr(s & "_值") & " [" & Format(dr(s & "_时间"),"HH:mm") & "] "
改成
st = st & dr(s & "_值") & " "
-- 发布时间：2018/5/27 16:33:00
--
有点甜老师：
可能是我表达不清楚，时间为00:00 时，如128 [00:00] 250 [00:00] 改为：128 250，但时间为空时，如第二条应为：96 [12:32] 251 [06:30], 真正的需求是：如值为空时，不管时间为空还不为空均显示空，如值不为空时，而时间为空时只显示值不显示时间，如何调整？
[此贴子已经被作者于2018/5/27 16:39:35编辑过]
-- 发布时间：2018/5/27 16:58:00
--
st = st & dr(s & "_值") & " [" & Format(dr(s & "_时间"),"HH:mm") & "] "
改成
st = st & dr(s & "_值") & iif(dr.isnull(s & "_时间"), "", " [" & Format(dr(s & "_时间"),"HH:mm") & "] ")
-- 发布时间：2018/5/27 17:15:00
--
高