Question

。每个人都有这段代码：

Private Sub EditPage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'InventorySysDataSet.tb_master_products' table. You can move, or remove it, as needed.
    Me.Tb_master_productsTableAdapter.Fill(Me.InventorySysDataSet.tb_master_products)
    sqlCnn = New SqlConnection("Data Source=ZEREY\SQLEXPRESS2008;Initial Catalog=InventorySys;Integrated Security=SSPI")

    Me.txtRowId.Text = Form1.txtRowId.Text
    'MsgBox(Me.txtRowId.Text)
    sql = "Select * from tb_master_inventory_per_day where Inventory_Date = " & txtRowId.Text & ""

    Dim upcmd As New SqlCommand("Select * from tb_master_inventory_per_day where Row_Id = @Row_Id", sqlCnn)
    upcmd.Parameters.Add(New SqlParameter("@Row_Id", Me.txtRowId.Text))
    upcmd.Connection.Open()
    Try
        Dim dr As SqlDataReader = upcmd.ExecuteReader()
        If dr.Read Then
            txtInventoryDate.Text = dr.Item("Inventory_Date")
            cboProductCode.DisplayMember = dr.Item("Product_Code")
            txtQty.Text = dr.Item("Product_Count")
        Else
            MessageBox.Show("Error!")
        End If
    Catch ex As SqlException
        If ex.Number <> 0 Then
            'ErrorProvider1.SetError(Me.txtuseridprofile, "Login Id: " &
            'Me.txtuseridprofile.Text & " :Not Found!")
            upcmd.Connection.Close()
            Exit Sub
        End If
    End Try
    upcmd.Connection.Close()


End Sub

我想要做的是在页面加载时自动更改cboProductCode的选定选项，具体取决于onload执行的查询的结果。请帮忙！ TIA！

Answer 1

.Haha！有趣的是，我尝试了很多方法，但没有尝试使用cboProductCode.Text而不是cboProductCode.DisplayMember。它现在有效！：d

如何根据datareader结果vb更改文本框的选定选项

1 个答案: