以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这里会报错，是什么原因  (http://foxtable.net/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())  这里的问题