Dim mnu As New JObject
If r.IsNull("JSON") = False Then
Dim json As String = r("JSON")
mnu = JObject.Parse(json)
End If
mnu("温度") = Format(nu1.Value,"0.0")
mnu("湿度") = Format(nu2.Value,"0.0")
mnu("测定条件") = te1.Text
mnu("样品处理") = te2.Text
mnu("样品测定") = te3.Text
mnu("说明") = te5.Text
mnu("结果计算") = te6.Text
For Each vr As WinForm.ListViewRow In lv.Rows
Dim yang As New JObject
If mnu(vr.Name) IsNot Nothing AndAlso typeof(mnu(vr.Name)) Is JObject Then ‘’这里会报错
yang = JObject.Parse(mnu(vr.Name))
End If
yang("样品编号") = vr("样品编号")
yang("组分") = New Jarray
Dim SubButton As JArray = yang("组分")
Dim hang As Integer = 0
For Each drzf As DataRow In DataTables("质量浓度").SQLSelect("行号 = '" & vr.Name & "_" & r("_id") & "' and 项目id = '" & r("项目id") & "'")
SubButton.Add(New Jobject)
SubButton(hang)("组分名称") = CStr(drzf("检测项目"))
SubButton(hang)("CAS号") = CStr(drzf("PCTWA"))
SubButton(hang)("含量") = Format(drzf("质量浓度"),"0.0")
hang = hang + 1
Next
mnu(vr.Name) = yang
Next
r("JSON") = CompressJson(mnu)
加好友 
发短信
Post By：2023/5/5 17:11:00 [显示全部帖子]
