带有组合框的数据网格视图，从数据表中添加行答案

【问题标题】：Data grid view with combo box , add rows from data table带有组合框的数据网格视图，从数据表中添加行
【发布时间】：2018-12-22 11:57:34
【问题描述】：

在数据网格视图中搜索和显示数据

Dim cmd As New OracleCommand("Select JV_CODE,JV_ACC_NAME,DEBIT,CREDIT From VOUCHER_DETAIL where VOUCHERNO =:Vno", sgcnn)

        cmd.Parameters.Add("@Vno", OracleDbType.NVarchar2).Value = txtJVNo.Text.ToString.Trim

        Dim daVD As New OracleDataAdapter(cmd)
        Dim dtVD As New DataTable()

        daVD.Fill(dtVD)
        dgvAccDetail.AutoGenerateColumns = False
        dgvAccDetail.DataSource = dtVD


        dgvAccDetail.Rows(0).Cells(0).Value = dtVD.Rows(0).Item("JV_CODE").ToString.Trim
        dgvAccDetail.Rows(0).Cells(1).Value = dtVD.Rows(0).Item("JV_ACC_NAME").ToString.Trim
        dgvAccDetail.Rows(0).Cells(2).Value = dtVD.Rows(0).Item("DEBIT").ToString.Trim
        dgvAccDetail.Rows(0).Cells(3).Value = dtVD.Rows(0).Item("CREDIT").ToString.Trim



    Catch ex As Exception

        MsgBox(ex.Message)

    End Try

dtVD 数据表中有两行，但结果显示只有一个我与此堆叠一些可以告诉我做错了什么？

【问题讨论】：

标签： vb.net datagridview datatable combobox

【解决方案1】：

这样做的原因是您只分配了一行。你有几个选择：

首先，下面的这段代码实际上并不需要，您可以在网格上设置属性绑定。如果您使用绑定，您将获得更好的性能。这里没有 GUI 代码，但基本上应该设置列上的 DataPropertyName 字段。

    dgvAccDetail.Rows(0).Cells(0).Value = dtVD.Rows(0).Item("JV_CODE").ToString.Trim
    dgvAccDetail.Rows(0).Cells(1).Value = dtVD.Rows(0).Item("JV_ACC_NAME").ToString.Trim
    dgvAccDetail.Rows(0).Cells(2).Value = dtVD.Rows(0).Item("DEBIT").ToString.Trim
    dgvAccDetail.Rows(0).Cells(3).Value = dtVD.Rows(0).Item("CREDIT").ToString.Trim

如果您坚持手动分配单元格值，则不能只执行第 0 行（即第一行）。您需要循环执行所有行。

For i as Integer = 0 to dtVD.Rows.Count - 1

    dgvAccDetail.Rows(i).Cells(0).Value = dtVD.Rows(i).Item("JV_CODE").ToString.Trim
    dgvAccDetail.Rows(i).Cells(1).Value = dtVD.Rows(i).Item("JV_ACC_NAME").ToString.Trim
    dgvAccDetail.Rows(i).Cells(2).Value = dtVD.Rows(i).Item("DEBIT").ToString.Trim
    dgvAccDetail.Rows(i).Cells(3).Value = dtVD.Rows(i).Item("CREDIT").ToString.Trim


Next

【讨论】：