شمارش داده های تکراری

[navid4731]

سلام
چطور میشه یه ستون به جدول اضافه کرد که داده های تکراری به ترتیب شماره گذاری بشن ، یعنی بزنه که این چندمین باره که این داده داره تو‌ جدول تکرار میشه ، منظورم dcount نیست مثلا یه داده وسط جدول رو‌ بزنه این ۳۴ امین باره که این داده تکرار میشه بعدیش رو بزنه ۳۵ امین بار و‌ الی اخر

[mazoolagh]

روش حل این دقیقا مشابه با پرسش قبلی است:
https://barnamenevis.org/showthread....A9%D8%B3%D8%B3

باید یک حلقه بسازین و در رکوردست فرم بگردین.
کدش ساده است ولی چند مورد هست که باید دقت کنین:

1- فیلدی که قراره تعداد تکرار اون شمرده بشه رو ایندکس کنین.
2- از رخداد after update برای تشخیص وضعیت استفاده کنین.
3- چون الزاما همیشه رکورد جدید نیست و ممکنه مقدار فیلد رو در رکوردهای قبلی تغییر بدین،
لازم هست که در رخداد before update مقدار قبلی رو هم نگه دارین
و در after update عملیات شمارش رو برای هر دو مقدار جدید و قدیم(در صورت نیاز) انجام بدین.
4- در هنگام جستجو، بجای اینکه مستقیما از رکوردست فرم استفاده کنین، یک clone ازش بگیرین و عملیات رو در اون انجام بدین (جستجو و محاسبات).
5- در پایان کار فرم رو refresh کنین.
6- برای جستجو در رکوردست از findfirst/findnext استفاده کنین و حلقه رو تا زمانی که nomatch نشده ادامه بدین.
7- یک شمارنده با مقدار اولیه 0 بسازین و به ازای هر find یکی بهش اضافه کنین و مقدارش رو فیلد نتیجه شمارش بریزین.
8- اگر مثل پرسش قبلی قرارهست بجای شمارش یک حرف از a و به بعد به انتهای مقدار فیلد بچسبونین،
کافی هست از همین شمارنده برای محاسبه حرف استفاده کنین : chrw(ascw("a")+counter)

[navid4731]

سلام
ممنونم از پاسخدهی دقیق و با حوصلتون
اگر امکانش هست اینو تو یه فایل اکسس بصورت مثال بهم نشون بدین خیلی ممنونتون میشم

[mazoolagh]

با فرض این که:
1- اسم فیلد مورد نظر برای شمارش X باشه،
2- اسم فیلدی که قراره شمارش X رو نگه داره Nth باشه،
3- اسم فیلدی که قراره شمارش X رو بصورت استرینگی با افزودن a,b,... به آخر X نگه داره Xaz باشه:

اول از همه؛ در ماجول فرم یک متغیر برای نگهداری مقدار قبل از ویرایش X تعریف میکنیم(مورد 3 پست شماره 2):

PRIVATE old_X AS VARIANT

و در رخداد مربوطه مقداردهی میکنیم برای استفاده بعدی:

SUB X_BEFOREUPDATE

    old_X=X.OLDVALUE

END SUB

[mazoolagh]

برای سادگی کار، فرض میکنیم از پیش یک روتین برای شمارش نوشتیم به اسم Calc_For که مقدار رو از ما میگیره و در رکوردست فرم دنبالش میگیره و ...
در رخداد afterupdate:

SUB X_AFTERUPDATE()

    DIRTY=FALSE

    Calc_For(X)

    Calc_For(old_X)

    REFRESH

END SUB

که منطق ساده ای داره:
اول با dirty=false رکورد فعلی رو save میکنیم و یک بار برای X شمارش میکنیم.
یک بار هم برای old_X شمارش انجام میدیم.

اگر رکورد جدید باشه، مقدار old_X برابر null هست و مشکلی در محاسبات پیش نمیاد،
ولی این قابلیت رو میده که مقادیر null رو هم میتونیم بشمریم.

[mazoolagh]

حالا میریم سروقت روتین Calc_For :

SUB CALC_FOR(X_VALUE AS VARIANT)

    DIM counter AS LONG ' =0

    DIM whr AS STRING





    IF ISNULL(X_VALUE) THEN

        whr="ISNULL(X)"

    ELSE

        whr="X=" & X_VALUE

    END IF





    WITH RECORDSETCLONE

        .MOVEFIRST

        .FINDFIRST whr

        DO UNTIL .NOMATCH

            counter=counter + 1

            .EDIT

            !NTH=counter

            !XAZ=NZ(!X , "(NULL)") & CHRW(ASCW("A")-1 + counter)

            .UPDATE

            .FINDNEXT whr

        LOOP

        .CLOSE

    END WITH

END SUB

این هم منطق ساده ای داره:
- اول شمارنده رو تعریف میکنیم : counter ،
- یک استرینگ whr برای ساخت شرط جستجو ،
- در recordsetclone فرم (نه رکوردست فرم!) از ابتدای اون (movefirst) شروع میکنیم
و دنبال اولین مورد میگردیم (findfirst)
- یک حلقه داریم که تا زمانی که نتیجه جدیدی پیدا نشه (nomatch) دنبال نتایج میگرده
- با هر موردی که پیدا میشه به شمارنده یکی اضافه میکنیم و در Nth میریزیم
همچنین در Xaz هم یک کپی از X که به آخرش یک حرف (از a و به بعد) چسبیده میریزیم

[navid4731]

خیلی خیلی خیلی ممنونم از پاسخگوییتون🙏🏻🙏🏻🙏🏻🙏 🏻یچیزیو متوجه نشدم x_value از کجا مقداردهی میشه؟

[mazoolagh]

خیلی خیلی خیلی ممنونم از پاسخگوییتون���������� ������������������ ����������������� ������یچیزیو متوجه نشدم x_value از کجا مقداردهی میشه؟

مقدارش رو از همون پارامتری میگیره که بهش پاس میشه!
با اجرای

Calc_For(X)

در واقع مقدار X رو به روتین پاس میکنین.