Private Sub btn_ok_Click
If if_flexgrid.RowCount == 0 Then
is_sno = is_sno + 1
Else If if_flexgrid.RowCount > 0 Then
For i = 0 To if_flexgrid.RowCount - 1
Dim ls_sno As Int = if_flexgrid.GetCellValue(i, 0)
is_sno = ls_sno + 1
If is_selectedsno == ls_sno Then
is_sno = is_selectedsno
End If
Next
End If
Dim row(5) As Object
row(0) = is_sno
row(1) = ip_editbarcodeentry.Text.Trim
row(2) = ip_editpiece.Text.Trim
row(3) = is_spnrlastmeter.SelectedItem
row(4) = ip_editmeter.Text.Trim
if_flexgrid.AddRow(row, False)
Sleep(1)
if_flexgrid.SetColAlignment(0,"LEFT")
ip_editbarcodeentry.Text = ""
ip_editmeter.Text = ""
ip_editpiece.Text = ""
is_selectedsno = ""
End Sub
Private Sub if_flexgrid_CellClick(Row As Int, Col As Int)
Dim Rowdata As List = if_flexgrid.GetCellRow(Row)
is_rownumber = Row
is_selectedsno = Rowdata.Get(0)
Log("row no : " & is_rownumber)
Log("sno : " & is_selectedsno)
Dim ls_barcode As String = Rowdata.Get(1)
Dim ls_piece As String = Rowdata.Get(2)
Dim ls_lastmeter As String = Rowdata.Get(3)
Dim ls_meter As String = Rowdata.Get(4)
If ls_lastmeter == "No" Then
is_spnrlastmeter.SelectedIndex = 1
Else If ls_lastmeter == "Yes" Then
is_spnrlastmeter.SelectedIndex = 0
End If
ip_editbarcodeentry.Text = ls_barcode
ip_editpiece.Text = ls_piece
ip_editmeter.Text = ls_meter
End Sub