【发布时间】:2010-07-15 14:23:41
【问题描述】:
我对由我创建的类的实例组成的通用列表有疑问。我很惊讶,每次我向列表中添加一个新对象时,它都会覆盖以前的条目。这是一个代码示例,我简直不敢相信。我正在使用 Visual Studio 2010:
Dim translations As List(Of TranslatedValue) = New List(Of TranslatedValue)
If Session("ctlTexts") Is Nothing Then
Dim reader As IDataReader = DataAccessFunctions.db.GetDataReader("SELECT [ControlID], [ControlTextEN], [ControlTextDE], [ControlTextBG] FROM [dbo].[tbLanguage]", GetConnectionString)
While reader.Read()
Dim translationBulgarian As String = String.Empty
Dim translationGerman As String = String.Empty
Dim translationEnglish As String = String.Empty
Dim translationKey As String = String.Empty
Dim currentLanguageTranslation As String = String.Empty
If Not reader.IsDBNull(0) Then
translationKey = reader("ControlID")
End If
If Not reader.IsDBNull(1) Then
translationEnglish = reader("ControlTextEN")
End If
If Not reader.IsDBNull(2) Then
translationGerman = reader("ControlTextDE")
End If
If Not reader.IsDBNull(3) Then
translationBulgarian = reader("ControlTextBG")
End If
Select Case CurrentLanguage
Case Language.Bulgarian
currentLanguageTranslation = translationBulgarian
Exit Select
Case Language.English
currentLanguageTranslation = translationEnglish
Exit Select
Case Language.German
currentLanguageTranslation = translationGerman
Exit Select
End Select
translations.Add(New TranslatedValue(translationKey, translationEnglish, translationGerman, translationBulgarian, currentLanguageTranslation))
End While
reader.Close()
Session("ctlTexts") = translations
【问题讨论】:
标签: .net vb.net collections