1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Protected Sub ButtonSearch_Click() Handles ButtonSearch.Click
Dim _batchValues As BatchValues = New BatchValues
If TextBoxSearch.ToString <> "" Then
Try
_batchValues.gridViewValues(Me.TextBoxSearch.Text.ToString, Me.ph)
Session("list") = _batchValues
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Protected Sub ButtonExportExcel_Clik() Handles ButtonExport.Click
Dim batchValue = TryCast(Session("list"), BatchValues)
If batchValue IsNot Nothing Then
For Each element In batchValue.listCheckBox
If element.checkBox.Checked Then
Traitement
End If
Next
End If
End Sub |
Partager