Here is this another thing that i try to solve in doing a project with VB.Net.
Scheme : i want my application to load data from datagridview to textbox or combobox but the trouble is datagridview cannot load data from an empty/null cell column.
Private Sub DgvSTAMP_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgvSTAMP.CellContentClick
'Cek bila nilai pada cell di datagridview ada yang kosong
For F As Integer = 0 To DgvSTAMP.RowCount - 1
If IsDBNull(DgvSTAMP.CurrentRow.Cells(1).Value) Then
TxtSTAMPNO.Text = ""
Else
TxtSTAMPNO.Text = DgvSTAMP.Item(1, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(2).Value) Then
TxtINSPECTORNAME.Text = ""
Else
TxtINSPECTORNAME.Text = DgvSTAMP.Item(2, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(3).Value) Then
TxtINSPECTORJOB.Text = ""
Else
TxtINSPECTORJOB.Text = DgvSTAMP.Item(3, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(4).Value) Then
CmbGROUP.Text = ""
Else
CmbGROUP.Text = DgvSTAMP.Item(4, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(5).Value) Then
CmbAREA.Text = ""
Else
CmbAREA.Text = DgvSTAMP.Item(5, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(6).Value) Then
CmbCUREGROUP.Text = ""
Else
CmbCUREGROUP.Text = DgvSTAMP.Item(6, DgvSTAMP.CurrentRow.Index).Value
End If
Next
End Sub
Scheme : i want my application to load data from datagridview to textbox or combobox but the trouble is datagridview cannot load data from an empty/null cell column.
Private Sub DgvSTAMP_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgvSTAMP.CellContentClick
'Cek bila nilai pada cell di datagridview ada yang kosong
For F As Integer = 0 To DgvSTAMP.RowCount - 1
If IsDBNull(DgvSTAMP.CurrentRow.Cells(1).Value) Then
TxtSTAMPNO.Text = ""
Else
TxtSTAMPNO.Text = DgvSTAMP.Item(1, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(2).Value) Then
TxtINSPECTORNAME.Text = ""
Else
TxtINSPECTORNAME.Text = DgvSTAMP.Item(2, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(3).Value) Then
TxtINSPECTORJOB.Text = ""
Else
TxtINSPECTORJOB.Text = DgvSTAMP.Item(3, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(4).Value) Then
CmbGROUP.Text = ""
Else
CmbGROUP.Text = DgvSTAMP.Item(4, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(5).Value) Then
CmbAREA.Text = ""
Else
CmbAREA.Text = DgvSTAMP.Item(5, DgvSTAMP.CurrentRow.Index).Value
End If
If IsDBNull(DgvSTAMP.CurrentRow.Cells(6).Value) Then
CmbCUREGROUP.Text = ""
Else
CmbCUREGROUP.Text = DgvSTAMP.Item(6, DgvSTAMP.CurrentRow.Index).Value
End If
Next
End Sub
Comments
Post a Comment