Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 列表取决于值选择_Vb.net_Winforms_Combobox - Fatal编程技术网

Vb.net 列表取决于值选择

Vb.net 列表取决于值选择,vb.net,winforms,combobox,Vb.net,Winforms,Combobox,我有2个组合框。两个组合框值都来自数据集 cb1包含数字列表例如:10、20、30 cb2包含数字列表例如:10.2、11.3、20.5、24.8、34.5 Cb2选择cb1时必须过滤列表 例如:10->10.2,11.3 20->20.5,24.8 30->34.5 如何使用vb.net编写这些代码?使用mssql将所有数据存储在表和visual studio 2005 vb.net中 cb1 = BilletSize cb2 = BilletUnitWt 编辑: 到目前为止,代码已尝试 P

我有2个组合框。两个
组合框
值都来自
数据集

cb1
包含数字列表
例如:10、20、30

cb2
包含数字列表
例如:10.2、11.3、20.5、24.8、34.5

Cb2
选择cb1时必须过滤列表

例如:10->10.2,11.3 20->20.5,24.8 30->34.5

如何使用vb.net编写这些代码?使用mssql将所有数据存储在表和visual studio 2005 vb.net中

cb1 = BilletSize
cb2 = BilletUnitWt
编辑

到目前为止,代码已尝试

Private Sub cbBilletSize_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbBilletSize.SelectedIndexChanged 
    Dim SqlStr As String SqlStr = "SELECT tbBilletUnitWt.BilletUnitWtCode FROM tbBilletUnitWt WHERE tbBilletUnitWt.BilletSizeCode = " & Me.cbBilletSize.SelectedValue & ";" 
    Me.cbUnitWt.SelectedValue.RowSource = SqlStr Me.cbUnitWt.SelectedValue.Requery()
End Sub

我用列表而不是数据集快速尝试了一下。你能看看你是否能调整它使它适合你吗

我认为你应该用等效的数据集操作来替换列表操作

Public Class Form1

    Dim combobox1Items As List(Of Integer) = New List(Of Integer)
    Dim combobox2Items As List(Of Double) = New List(Of Double)

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        Me.combobox1Items.Add(10)
        Me.combobox1Items.Add(20)
        Me.combobox1Items.Add(30)

        Me.combobox2Items.Add(10.2)
        Me.combobox2Items.Add(11.3)
        Me.combobox2Items.Add(20.5)
        Me.combobox2Items.Add(24.8)
        Me.combobox2Items.Add(34.5)

        With Me.ComboBox1
            .DataSource = Me.combobox1Items
        End With

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim bindingList As New List(Of Double)

        For Each item As Double In Me.combobox2Items
            If item > CInt(Me.ComboBox1.Items(Me.ComboBox1.SelectedIndex)) Then
                Call bindingList.Add(item)
            End If
        Next

        With Me.ComboBox2
            .DataSource = bindingList
        End With

    End Sub

End Class

你要我们写很多代码来向你展示解决方案。您是否至少在使用EntityFramework?到目前为止,你尝试过什么吗?我是第一次使用这个stackoverflow,我可以知道如何在这里打印我的代码吗?为你完成:)为了将来的参考,你只需要按edit编辑你的问题并添加代码。嗨,Yu,我的代码没有按照我的要求运行。你能帮我吗?我现在正在看一看,如果我能帮上忙,我会马上告诉你。我正在做项目。在此之前添加列表。它是有效的。但是从表中提取数据在表单中更有效bcuz当用户在Master中添加记录时,我需要再次添加1行代码,而不是运行适合所有条件的当前代码。但是我真的很感谢你对上面代码的帮助。谢谢好的,如果这对你没有任何帮助,我很抱歉。不幸的是,我没有太多使用数据集的经验,所以我不能提供比这更多的帮助。我希望你能让你的代码正常工作。