Dim USelectRow As Integer = 0
Dim PrepDate As String
Dim Store As String
If GrdHeader.SelectedRows.Count > 0 Then
IsFind = True 'ประกาศตัวแปรตัวนี้ไว้ข้างบนสุดนะ Dim IsFind As Boolean
End If
If IsFind = True Then
USelectRow = GrdHeader.CurrentRow.Index()
PrepDate = DDSet.Tables(0).Rows(USelectRow).Item(0).ToString
Store = DDSet.Tables(0).Rows(USelectRow).Item(1).ToString
'MsgBox("prep = " & PrepDate & "== Store = " & Store, MsgBoxStyle.OkOnly)
'update table set status='Inactive' where id=''
End If