الفرز حسب شجرة الحسابات

السلام عليكم ...

1. أنا فهمت الفكرة على أننا نوجد اطول حساب ثم نضيف له صفر ثم نجعل باقي الحسابات كلها بنفس الطول ..
2. نضع زر و نضع فيه الكود :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Dim longetstAcc As Integer = 0
   
           For Each row As DataRow In TreeeDataSet.ACCS.Rows
               Dim AccID = row("AccID").ToString()
               If (AccID.Length > longetstAcc) Then longetstAcc = AccID.Length
           Next
           If longetstAcc = 0 Then Exit Sub
   
           longetstAcc = longetstAcc + 1
   
           For Each row As DataRow In TreeeDataSet.ACCS.Rows
               Dim AccID As Integer = row("AccID")
               Dim sAccID = AccID.ToString()
               Dim diff = longetstAcc - sAccID.Length
               row("SortAcc") = AccID * Math.Pow(10, diff)
           Next
           ACCSBindingNavigatorSaveItem_Click_1(sender, e) ' to save changes
       End Sub

    أرجو أن يعمل و يكون هو المطلوب ..

أخي الغالي والاستاذ القدير / حسام

مليون تحية طيبة وبعد ،،،

مليون شكر لا يكفي والله أنك أنقذتني ويسلم دينك وايمانك

اللهم أغفر له واعطه الصحة ... اللهم آمييييييييييييييييييين

والله هذا هو المطلوب

-----------------

مع أجمل سلام

السلام عليكم و رحمة الله ..

بارك الله بك أخي كمال , و غفر لك و عافاك ...

بالتوفيق ..