首页 > 解决方案 > 收到此错误“逗号,')',或预期的有效表达式继续”

问题描述

谁能帮我解决这个错误。线上出现错误

wtp.Add(New WaterTreament() With {.position = positionName, .value = Convert.ToDouble(sqlRs2("value").ToString()), .timestamp = sqlRs2("dtimestamp").ToString()})

这是代码

    Dim wtp As New List(Of WaterTreament)()
    sqlRs2.Open(strSQL2, objConn2)
       If Not sqlRs2.EOF Then
        Dim positionName = sqlRs2("position").ToString()
        If (positionName = "60") Then
            positionName = "CHLORINE"
        ElseIf (positionName = "61") Then
            positionName = "TURBIDITY"
        ElseIf (positionName = "62") Then
            positionName = "PH"
        ElseIf (positionName = "63") Then
            positionName = "FLORIDE"
        End If
        wtp.Add(New WaterTreament() With {.position = positionName, .value = Convert.ToDouble(sqlRs2("value").ToString()), .timestamp = sqlRs2("dtimestamp").ToString()})
    End If

标签: asp.netvb.net

解决方案


好吧,有时只写几行额外的代码真的要好得多。我的意思是,花哨的裤子可以很酷,也很棒,但通常多写几行代码是更好的方法。

所以,说试试这个:

dim MyWaterTreat as new WaterTrament

MyWaterTreat.position = positionName
MyWaterTreat.value = Convert.ToDouble(sqlRs2("Value).ToString())
MyWaterTreat.TimeStamp = sqlRs2("dtimesamp").ToString()

wtp.Add(MyWaterTreat)

你会得到更好的 Intel-sense,并且可能会在调试过程中节省一壶咖啡。

所以,有时,你最好多写几行代码。然后用VS,然后说ctr-d复制上一行?您可能会产生更多代码,但开发人员实际上不必输入该代码或所有代码。

因此,创建该类的新实例。将值与 GREAT nice intel-sense 一起添加,然后将该新对象添加到列表中。

更好的是,您还倾向于对未匹配的数据类型进行智能感知。


推荐阅读