| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这里会报错，是什么原因 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186466) |
| -- 作者：xluoping -- 发布时间：2023/5/5 17:11:00 -- 这里会报错，是什么原因 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)
|
| -- 作者：有点蓝 -- 发布时间：2023/5/5 17:17:00 -- 报什么错？ |
| -- 作者：xluoping -- 发布时间：2023/5/5 17:19:00 -- .NET Framework 版本：2.0.50727.8838 Foxtable 版本：2019.4.12.1 错误所在事件：窗口,挥发性有机组分测定,Button1,Click 详细错误信息： Can not convert Object to String. |
| -- 作者：有点蓝 -- 发布时间：2023/5/5 17:22:00 -- If mnu(vr.Name) IsNot Nothing AndAlso typeof mnu(vr.Name) Is JObject Then |
| -- 作者：xluoping -- 发布时间：2023/5/5 17:29:00 -- 我改为 If mnu(vr.Name) IsNot Nothing then 还是报同样的错 |
| -- 作者：有点蓝 -- 发布时间：2023/5/5 17:42:00 -- 应该不是这句话的问题 删除项目bin目录，重启项目试试
|
| -- 作者：xluoping -- 发布时间：2023/5/6 10:40:00 -- yang = JObject.Parse(mnu(vr.Name).Toshring()) 这里的问题 |