VB 2013從窗體中加載datagridview

我已經搜索了網絡，尋找如何用新數據「記錄」填充DataGridView，然後使用BindingNavigator保存記錄。我有一個DataDridView的單一窗體，我從DataSource中將表格列拖到窗體中，以便人們輸入新的記錄。然後我想用這些信息填充DataGrid然後保存它。VB 2013從窗體中加載datagridview

Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click 

Dim RR As Integer = ACCOUNT_MOVEDDataGridView.RowCount - 2 

For RC As Integer = 0 To RR 

If ACCOUNT_MOVEDDataGridView(2, RC).Value Is DBNull.Value Then 
'' ACCOUNT_MOVEDDataGridView(2, RR).Value = ACCOUNT_MOVEDDataGridView(15, RR).Value = 0 
End If 

Next 
End Sub

來源

2016-05-12 Chuck

您沒有提出任何問題。你想解決什麼問題？我們可能需要查看代碼來幫助您。 – LarsTech

@svarg我試過這段代碼。 – Chuck

私人小組BindingNavigatorAddNewItem_Click（發送者爲對象，例如作爲EventArgs的）把手BindingNavigatorAddNewItem.Click 昏暗RR爲整數= ACCOUNT_MOVEDDataGridView.RowCount - 2 對於RC爲整數= 0要RR 如果ACCOUNT_MOVEDDataGridView（2，RC）。價值是DBNull.Value然後 '' ACCOUNT_MOVEDDataGridView（2，RR）。價值= ACCOUNT_MOVEDDataGridView（15，RR）。價值= 0 結束如果接着結束子 – Chuck

我已經想通了，我把BindingNavigatorAddNewItem_Click 下的代碼時，它應該是在保存項目點擊。

Private Sub ACCOUNT_MOVEDBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ACCOUNT_MOVEDBindingNavigatorSaveItem.Click 

      Call ACCDEF() 

    Private Sub ACCDEF() 
      Dim RR As Integer = ACCOUNT_MOVEDDataGridView.RowCount - 2 

      For RC As Integer = 0 To RR 

       If ACCOUNT_MOVEDDataGridView(2, RC).Value Is DBNull.Value Then 
        ACCOUNT_MOVEDDataGridView(2, RR).Value = Date.Now 
        ACCOUNT_MOVEDDataGridView(15, RR).Value = 0 
       Else 
        ACCOUNT_MOVEDDataGridView(1, RR).Value = Date.Now 

       End If 
      Next 
    End Sub

其中加載DataGridView的默認值，感謝所有看着我的問題。

來源

2016-05-26 13:02:49 Chuck

VB 2013從窗體中加載datagridview

回答

相關問題