منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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 لا يقوم بالجمع

(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 لا يقوم بالجمع

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