[asdfar1977]

Sub max_cod_acc_accmilated_depreciation()
        'كود اظهار كود اكبر مجمع الاهلاك + زيادة ب 001
        Try
            Dim CON As New Class_CON
            Dim DT As New DataTable
            DT.Clear()
            DT = CON.select_txt("SELECT ISNULL(MAX(cod_account)+001,0) from Table_Account  WHERE cod_father_account ='" & Text_Cod_Acc_accmilated_Group.Text & "'")
            If DT.Rows.Count > 0 Then
                Text_cod_account_accmilated_depreciation.Text = Val(DT.Rows(0)(0).ToString())
            End If
            '++++++++++++++++++++++++++++++++
            '++++++++++++++++++++++++++++++++
                 
                                 
            End If
        Catch ex As Exception
        End Try
    End Sub

الكود السابق يعمل بكفاءة ولكن اذا كان عدد الارقام فى cod_account  لا يزيد عن 10 ارقم واذا ذاد لا يتم التجميع

فمثلا كود الحساب هو 20210703001 + 001 لا يقوم بالجمع    

[asdfar1977]

(05-08-21, 12:27 AM)asdfar1977 كتب : Sub max_cod_acc_accmilated_depreciation()
        'كود اظهار كود اكبر مجمع الاهلاك + زيادة ب 001
        Try
            Dim CON As New Class_CON
            Dim DT As New DataTable
            DT.Clear()
            DT = CON.select_txt("SELECT ISNULL(MAX(cod_account)+001,0) from Table_Account  WHERE cod_father_account ='" & Text_Cod_Acc_accmilated_Group.Text & "'")
            If DT.Rows.Count > 0 Then
                Text_cod_account_accmilated_depreciation.Text = Val(DT.Rows(0)(0).ToString())
            End If
            '++++++++++++++++++++++++++++++++
            '++++++++++++++++++++++++++++++++
                 
                                 
            End If
        Catch ex As Exception
        End Try
    End Sub

الكود السابق يعمل بكفاءة ولكن اذا كان عدد الارقام فى cod_account  لا يزيد عن 10 ارقم واذا ذاد لا يتم التجميع

فمثلا كود الحساب هو 20210703001 + 001 لا يقوم بالجمع    

ارجو الإفادة للاهمية