[xebrahimx]

ثانيا الفورم
======
ما معنى هذا الكود
Dim WithEvents oBinding As Binding
Dim WithEvents oBinding3 As Binding
Dim WithEvents oBinding4 As Binding
ما هو Binding ؟؟؟؟
=============================================
Private Sub oBinding_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ConvertEventArgs) Handles oBinding.Format
On Error Resume Next
If Not e.Value = Nothing Then e.Value = Decrypt(e.Value, True)
End Sub

ماهو oBinding.Format ؟؟

===================================================
مهم جدا

Dim datab1 As New OleDbDataAdapter(SQLstr, ConStr)
AccountDataSet1.Clear()
datab1.Fill(AccountDataSet1, "tre")
' Me.BindingContext(AccountDataSet1, "tre").Position = 0

هذه الكود متعلق بعرض الدتا بيز , لاكن لم افهمه ياريت احد يساعدنى ؟؟

========================================================

' Me.BindingContext(AccountDataSet1, "tre").Position = 4
oBinding = New Binding("Text", AccountDataSet2, "low5.text")

RichTextBox1.DataBindings.Add(oBinding)

وهذا ايضا

==================================


Dim dv1 As DataView = AccountDataSet1.Tables("tre").DefaultView

dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'"
dv1.Sort = "id ASC"



For Each drLine As DataRowView In dv1

Dim SubNode As New TreeNode(drLine("titel"))
' SubNode.ForeColor = Color.Black
SubNode.Tag = drLine("key").ToString
SubNode.Name = drLine("key").ToString
SubNode.ImageIndex = CType(drLine("image"), Integer)
SubNode.SelectedImageIndex = CType(drLine("imageselect"), Integer)
Node.Nodes.Add(SubNode)
Application.DoEvents()
If Not CType(Node.Tag, String) Is String.Empty Then

AddSubNode(SubNode)

End If
Next


=================================================



Dim dv1 As DataView = AccountDataSet1.Tables("tre").DefaultView

dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'"
dv1.Sort = "id ASC"



For Each drLine As DataRowView In dv1

Dim SubNode As New TreeNode(drLine("titel"))
' SubNode.ForeColor = Color.Black
SubNode.Tag = drLine("key").ToString
SubNode.Name = drLine("key").ToString
SubNode.ImageIndex = CType(drLine("image"), Integer)
SubNode.SelectedImageIndex = CType(drLine("imageselect"), Integer)
Node.Nodes.Add(SubNode)
Application.DoEvents()
If Not CType(Node.Tag, String) Is String.Empty Then

AddSubNode(SubNode)

End If
Next
=================================
هذا الكود لملأ TREEVIEW من قاعدة البيانات

ماهى DataView ؟


dv1.RowFilter = "parentkey ='" & CType(Node.Tag, String) & "'"
dv1.Sort = "id ASC"

parentkey = حقل فى جدول TREE