【发布时间】:2021-12-17 13:37:19
【问题描述】:
谁能帮我解决这个错误。出现错误
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
【问题讨论】:
-
什么是SqlRs2?顺便说一句,在使用对象之前定义它是一种很好的做法。
-
其实SqlRs2是一个“sqlRs2 = New ADODB.Recordset()”
-
是否使用
Option Strict On?这可以让 Visual Studio 更好地指出问题。 -
为什么选择 ADODB?这在很久以前就被 ADO.net 取代了。
-
您可以为 WaterTreatment 类编写自定义构造函数。这将稍微简化代码,并且您将拥有智能感知来帮助您。