在Windows窗体中刷新组合框

时间:2010-03-09 18:48:40

标签: vb.net combobox

HI,

这个问题已经在网上被问了很多,但是所有这些问题似乎都与Windows窗体和asp.net表单混淆了,所以我不得不最终来到这里寻求答案。

我在VB.NET中有一个主窗体(一个窗口窗体),它有一个组合框来显示一个国家列表。从主窗体上的“按钮”激活的子窗体允许用户将国家/地区添加到其列表中。但是在添加新条目后,主窗体上的组合框不显示更新(当它仍处于打开状态时)。我必须退出主窗体并重新启动它以查看更新。

填充函数如下所示。我在添加新国家后仍称这种方法,但仍然如此;不好。我使用了组合框的Invalidate功能,但也没有用。

感谢任何帮助。感谢

Public Sub PopulateCountry()
Dim rsLocal As New ADODB.Recordset
    Try

      Dim sSQLCommand As String
      Me.CountryList.Items.Clear()
      'get the list of countries from the local database
      sSQLCommand = " SELECT *  FROM CountryList order by CountryDesc"
      rsLocal.Open(sSQLCommand, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
      'Display All the  countries
      While rsLocal.EOF = False

        Dim Country As New modGV.cbItem
        Country .ID = rsLocal.Fields("CountryID").Value
        Country.name = rsLocal.Fields("Country Desc").Value.ToString.Trim
        Me.CountryList.Items.Add(Country)
        rsLocal.MoveNext()
      End While

      rsLocal.Close()


    Catch ex As Exception    

      Debug.WriteLine("PopulateCountry: exception occurred " & ex.Description)

    Finally
      If rsLocal.State = ConnectionState.Open Then
        rsLocal.Close()
      End If      
    End Try
End Sub

1 个答案:

答案 0 :(得分:0)