在 DevExpress 的 Grdicontrol 中将值从文本框传递到行答案

【问题标题】：Pass value from textbox to row in Grdicontrol in DevExpress在 DevExpress 的 Grdicontrol 中将值从文本框传递到行
【发布时间】：2022-11-09 17:30:02
【问题描述】：

我正在使用 Gridcontrol，我想将产品添加到 gidview，我使用此代码

Public Sub InsertBarcode()
        Dim x As Integer
        Try
            If Con.State = 1 Then Close()
            Con.Open()
            Dim cmd As New SqlCommand("Select * from Products where ProdBarCode=@ProdBarCode", Con)
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@ProdBarCode", SqlDbType.NVarChar).Value = TxtBarcode.Text
            Dim adp As New SqlDataAdapter(cmd)
            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    GridView1.AddNewRow()
                    x = GridView1.RowCount - 1

                    GridView1.SetRowCellValue(x, GridView1.Columns(0), dr("ProdId").ToString)
                    GridView1.SetRowCellValue(x, GridView1.Columns(1), dr("ProdName").ToString)
                    GridView1.SetRowCellValue(x, GridView1.Columns(2), dr("QtyAvailabe").ToString)
                    GridView1.SetRowCellValue(x, GridView1.Columns(3), dr("BuyPrice").ToString)
                    GridView1.UpdateCurrentRow()
                End While
                dr.Close()
                Con.Close()
            Else
                MsgBox("There is no data")
            End If


        Catch ex As Exception
            Con.Close()
        End Try
    End Sub

并调用该方法

Private Sub TxtBarcode_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles TxtBarcode.PreviewKeyDown
    If e.KeyCode = Keys.Enter Then
        InsertBarcode()
        TxtBarcode.Text = ""
    End If
End Sub

但是当我添加条形码时，没有数据添加到 gridview 行

【问题讨论】：

只是初步的眼光，认为您可能想看看 cmd.Parameters.AddWithValue 和 cmd.Parameters.Add 之间的区别。你可能已经混合了他们的两种方法。 AddWithValue 中的第二个参数通常是您现在所获得的值看起来更像 Add 方法

标签： vb.net devexpress

【解决方案1】：

首先，你可以用这个替换填充gridview的代码。

 Public Function ReturnDataTable(Query As String) As DataTable

Dim dt As New DataTable
Dim SQL_Adapter As SqlDataAdapter = New SqlDataAdapter
Dim SQL_DataSet As DataSet = New DataSet
Dim SQL_Connection As New SqlConnection( Your Connection String Var or String )
SQL_Adapter.SelectCommand = New SqlCommand(Query, SQL_Connection)
SQL_Adapter.Fill(dt) 
Return dt

End function

现在您可以在代码中添加以下代码

 Dim Query As String = " Your SELECT Query"
grid.datasource=ReturnDataTable(Query)

最后一步尝试使用此查询：

"Select * from Products where ProdBarCode='" & TxtBarcode.Text & "'"

【讨论】：