ListBox ObservableCollection 复制

Question

我有一个 WPF 应用程序，它有一个绑定到 ObservableCollection 的列表框，该列表框从数据库检索数据。我试图通过使用 DispatcherTimer 每分钟刷新一次 ListBox 数据。

Dim dispatcherTimer As DispatcherTimer = New System.Windows.Threading.DispatcherTimer
AddHandler dispatcherTimer.Tick, AddressOf getRoomMeetingDetails
dispatcherTimer.Interval = New TimeSpan(0, 2, 0)
dispatcherTimer.Start()

其中调用 getRoomMeetingDetails 方法如下。

Public Sub getRoomMeetingDetails()
  If Not My.Settings.rbConn = Nothing And _
     Not gl_rmName = Nothing Then
       Dim sqlConn As New SqlConnection(My.Settings.rbConn)
       Dim sqlquery As String = "SELECT  *" & _
                                        "FROM table " & _
       Dim sqlCmd As New SqlCommand(sqlquery, sqlConn)
       sqlConn.Open()
       Dim dr As SqlDataReader
       dr = sqlCmd.ExecuteReader
       While dr.Read
         roomMeetingList.Add(New meetingDetails() With {.eMeetingId = dr.Item("dId")})
       End While
  End If
End Sub

然后，我为 Collection 提供了两个类，如下所示（我对 ObservableCollections 非常陌生，并且已尽力根据 MSDN 示例对我的代码进行建模，因此，如果这不是实现我想要的目标的最佳方法实现，或者可以更容易地完成，请让我知道）

Public Class MeetingList
  Inherits ObservableCollection(Of meetingDetails)
  Private Shared list As New MeetingList

  Public Shared Function getList() As MeetingList
    Return list
  End Function

  Private Sub New()
    AddItems()
  End Sub

  Public Shared Sub reset(ByVal rmName As String)
    list.ClearItems()
    list.AddItems()
  End Sub

  Private Sub AddItems()
  End Sub
End Class

Public Class meetingDetails
  Implements INotifyPropertyChanged

  Public Sub New()
  End Sub
  Public Property eID() As String
    Get
      Return _eID
    End Get
    Set(ByVal value As String)
       _eID = value
       OnPropertyChanged("eID")
    End Set
  End Property
  Private _eID As String

  Public Event PropertyChanged As PropertyChangedEventHandler _
        Implements INotifyPropertyChanged.PropertyChanged
End Class

发生的情况是，当每分钟调用 DispatcherTimer 时，ListBox 数据会重复，我相信这是因为 getRoomMeetingDetails 方法正在添加每个上的所有 SQL 结果 打钩。如何仅使用表中的新数据或数据更改来刷新列表框？

我真的很难找出哪里出了问题，以及需要添加/删除什么才能使其发挥作用。

如果我缺少任何细节，请告诉我。

马特

Answer 1

您可以在再次添加之前清除列表框中的所有数据，或者对集合进行检查。我假设你的 eID 是主键？做类似这样的事情：

if ( roomMeetingList.Where ( entry => entry.eID == dbID ).Count () == 0 ) {
    // add
}

C#代码，但它显示了developerFusion的转换使这个VB的想法

：

If roomMeetingList.Where(Function(entry) entry.eID = dbID).Count() = 0 Then
     ' Add
End If