[a_almisery]

إقتباس :ما المقصود بdataset ???

http://www.dotnetperls.com/dataset-vbnet

إقتباس :ما المقصود بهذا الكود ؟ هل يفتح جدول tre ?? لماذا استخدم sql بارغم انه معرف فى التصريح System.Data.OleDb

نعم افتح جدول tre يجب عن استخدام هذا الاستعلام لاختيار الجدول ...

إقتباس :Public searchresults As New ArrayList
Public position As Integer = 0

عرف على مصفوفه جديده في متغير searchresults
وعرف عن postion واعطاه قيمه 0

إقتباس :Public Function FindInternal(ByVal key As String, ByVal searchAllChildren As Boolean, ByVal treeNodeCollectionToLookIn As TreeNodeCollection, ByVal foundTreeNodes As ArrayList) As ArrayList
If ((treeNodeCollectionToLookIn Is Nothing) OrElse (foundTreeNodes Is Nothing)) Then
Return Nothing
End If
Dim i As Integer
For i = 0 To treeNodeCollectionToLookIn.Count - 1
If ((Not treeNodeCollectionToLookIn.Item(i) Is Nothing) AndAlso SafeCompareStrings(treeNodeCollectionToLookIn.Item(i).Text, key, True)) Then
foundTreeNodes.Add(treeNodeCollectionToLookIn.Item(i))
End If
Next i
If searchAllChildren Then
Dim j As Integer
For j = 0 To treeNodeCollectionToLookIn.Count - 1
If (((Not treeNodeCollectionToLookIn.Item(j) Is Nothing) AndAlso (Not treeNodeCollectionToLookIn.Item(j).Nodes Is Nothing)) AndAlso (treeNodeCollectionToLookIn.Item(j).Nodes.Count > 0)) Then
foundTreeNodes = FindInternal(key, searchAllChildren, treeNodeCollectionToLookIn.Item(j).Nodes, foundTreeNodes)
End If
Next j
End If
Return foundTreeNodes
End Function

اعتقد بان هذا الكود لملأ اداه tree اي الشجره لعرض IItems

إقتباس :Public Function SafeCompareStrings(ByVal string1 As String, ByVal string2 As String, ByVal ignoreCase As Boolean) As Boolean
If ((string1 Is Nothing) OrElse (string2 Is Nothing)) Then
Return False
End If
Return ((string1.ToLower.Contains(string2.ToLower)))
End Function

هذا الداله اعتقد بانها تعيد اعتقد انها لتحويل الاحرف من صغير الى كبيـر مع ارسال القيمه والله اعلم ....
انا لست محتـرف ولكن حـاولت ... ان شاء الله يجــوك الشباب يفــهموك اكثـر