1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Public Function ExtractDonneesDataTableDepuisString(ByRef Dtt As DataTable, ByVal NumChampFiltre As Byte, ByVal ExpressionFiltre As String, ByVal NumChampTri As Byte, ByVal ExpressionTri As String) As DataRow()
'Renvoie le résultat en fonction des situations
If NumChampFiltre = 0 And ExpressionFiltre = "" Then
If NumChampTri = 0 And ExpressionTri = "" Then
Return Dtt.Select()
Else
Return Dtt.Select("", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
End If
Else
If NumChampTri = 0 And ExpressionTri = "" Then
Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = '" & ExpressionFiltre & "'", "")
Else
Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = '" & ExpressionFiltre & "'", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
End If
End If
Exit Function
End Function
Public Function ExtractDonneesDataTableDepuisUshort(ByRef Dtt As DataTable, ByVal NumChampFiltre As Byte, ByVal ExpressionFiltre As UShort, ByVal NumChampTri As Byte, ByVal ExpressionTri As String) As DataRow()
'Renvoie le résultat en fonction des situations
If NumChampFiltre = 0 And ExpressionFiltre = 0 Then
If NumChampTri = 0 And ExpressionTri = "" Then
Return Dtt.Select()
Else
Return Dtt.Select("", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
End If
Else
If NumChampTri = 0 And ExpressionTri = "" Then
Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), "")
Else
Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
End If
End If
Exit Function
End Function |
Partager