1

内部にForma を作成しています。Bound DatagridviewまたはでForm_Load、Row_Validating次のように新しい行を追加しましDatagridviewた:

Private Sub PurchaseInRowAdd()
        'add new row to datagridview
        Dim dtRow As DataRow = CType(Me.dgvPurchaseIn.DataSource, DataTable).NewRow()
        dtRow.Item("InvoiceID") = 0
        dtRow.Item("KindID") = CType(CType(Me.dgvPurchaseIn.Columns("colPurchaseKind"), DataGridViewComboBoxColumn).DataSource, DataTable).Rows(0)("KindID")
        dtRow.Item("InvoiceSign") = ""
        dtRow.Item("InvoiceNo") = ""
        dtRow.Item("InvoiceDate") = New Date(objController.ProcessYear, objController.ProcessMonth, 1)
        dtRow.Item("ID") = CType(CType(Me.dgvPurchaseIn.Columns("colPurchaseCustomer"), DataGridViewComboBoxColumn).DataSource, DataTable).Rows(0)("ID")
        dtRow.Item("Product") = ""
        dtRow.Item("Price") = "0.00"
        dtRow.Item("Note") = ""
        dtRow.Item("Tax") = CType(CType(Me.dgvPurchaseIn.Columns("colPurchaseKind"), DataGridViewComboBoxColumn).DataSource, DataTable).Rows(0)("Tax")
        dtRow.Item("TaxCode") = CType(CType(Me.dgvPurchaseIn.Columns("colPurchaseCustomer"), DataGridViewComboBoxColumn).DataSource, DataTable).Rows(0)("TaxCode")
        dtRow.Item("VAT") = ""

        CType(Me.dgvPurchaseIn.DataSource, DataTable).Rows.Add(dtRow)
    End Sub

ここでの問題は、ユーザーがその新しい行への入力を終了して Enter キーを押したときに、そのRow_Validating下に行がないために起動されないことです。Row_Validatingでは、ユーザーが入力を終了してEnterキーを押したときにトリガーを強制するにはどうすればよいですか?

私はこのEnable Adding解決策を見つけましたが、に設定したくないので、私の場合には適していませんTrue。代わりにコードで行の追加を処理したい。

4

1 に答える 1

0

私は解決策を見つけました、私はこのようにサブクラス化DataGridViewしてオーバーライドしますProcessDialogKey:

protected override bool ProcessDialogKey(Keys keyData)
        {
            if(keyData == Keys.Enter)
            {
                KeyEnterPress(this, new EventArgs());
            }
            return base.ProcessDialogKey(keyData);
        }

(このサブクラスは C# で書きました)

次に、このように私のフォームでキー入力プレスを処理します

Private Sub PurchaseInCellKeyDown(ByVal sender As Object, ByVal e As EventArgs)
        If Me.dgvPurchaseIn.CurrentRow.Index = Me.dgvPurchaseIn.Rows.Count - 1 Then
            If PurchaseInRowValidate(Me.dgvPurchaseIn.CurrentRow.Index, True) Then
                Me.PurchaseInRowAdd()
                Me.deselectPurchaseCell(Me.dgvPurchaseIn.CurrentRow.Index)
                Me.dgvPurchaseIn.Rows(Me.dgvPurchaseIn.Rows.Count - 1).Cells("colPurchaseSign").Selected = True
            End If
        End If
    End Sub

この行：

Me.dgvPurchaseIn.Rows(Me.dgvPurchaseIn.Rows.Count - 1).Cells("colPurchaseSign").Selected = True

行の検証をトリガーします

于 2013-07-12T02:55:44.647 に答える