Question

net我不知道如何隐藏我的组合框中的特定项目。我有两个组合框（cmbo_frm和cmbo_to），其内容来自我的数据库。我想要做的是当我点击cmbo_frm中的值时，该值会自动隐藏在cmbo_to中。

Try
            If cmbo_to.SelectedIndex <> -1 And cmbo_frm.SelectedIndex <> -1 Then
                If txtbox_ftype.Text = "Regular" Then
                    Data = "SELECT [Fare].Rfare FROM [Mc_Koy].[dbo].[Fare],[Mc_Koy].[dbo].[User] where [Fare].Locfrom = '" & cmbo_frm.SelectedValue.ToString & "' AND [Fare].Locto = '" & cmbo_to.SelectedValue.ToString & "'"
                    Command = New SqlCommand(Data, Connection)
                    Command.ExecuteNonQuery()
                    Dim dr As SqlDataReader
                    dr = Command.ExecuteReader
                    With dr
                        dr.Read()
                        txt_fare.Text = .Item(0)
                        dr.Close()
                    End With
                Else
                    Data = "SELECT [Fare].Dfare FROM [Mc_Koy].[dbo].[Fare],[Mc_Koy].[dbo].[User] where [Fare].Locfrom = '" & cmbo_frm.SelectedValue.ToString & "' AND [Fare].Locto = '" & cmbo_to.SelectedValue.ToString & "'"
                    Command = New SqlCommand(Data, Connection)
                    Command.ExecuteNonQuery()
                    Dim dr As SqlDataReader
                    dr = Command.ExecuteReader
                    With dr
                        dr.Read()
                        txt_fare.Text = .Item(0)
                        dr.Close()
                    End With
                If cmbo_frm.SelectedValue.ToString <> cmbo_to.SelectedValue.ToString Then
                    btn_save.Show()
                Else
                    cmbo_to.SelectedIndex = -1
                End If
                End If
            End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

Answer 1

请在“点击cmbo_frm中的值”后立即从数据库重新加载txt_to，然后执行以下代码

For i = 0 To cmbo_to.Items.Count - 1
    If cmbo_to.Items.Item(i).ToString.Trim = cmbo_frm.Text.Trim Then
        cmbo_to.Items.RemoveAt(i)
        Exit For
    End If
Next

vb.net如何在组合框中隐藏索引

1 个答案: