مشکل باز کردن سطر در dbf دلخواه

dbf ای که یوزر و رمز رو تطبیق می ده login هست و dbf ای که اطلاعات رو replace می کنم داخلش log2 هست
حالا هر بار که یوزر و پسوورد رو می زنم توی log2 در همون خط اول میریزه و یک خط جدید باز نمیکنه
میخوام قبل از او سه خطی که replace میکنه یم خط در بانک اطلاعاتی log2 باز بشه و سطر جدیدی که باز میشه فعال بشه
چون خودم چند خط append blank زدم ولی هر بار فقط داخل خط اول مینویسه
وقتی قبلش همینطوری append blank میزنم توی log2 سطر باز نمیکنه و توی login باز می کنه من می خوام توی log2 سطر باز بشه

LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value))



IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value)

    THISFORM.cUser = ALLTRIM(login.userid)

REPLACE log2.user WITH THISFORM.txtUserName.Value

REPLACE log2.date WITH DATE()

REPLACE log2.time WITH TIME()

DO FORM index1

    THISFORM.Release

ELSE

    #DEFINE MISMATCH_LOC "äÇã ˜ÇÑÈÑí íÇ ÑãÒ ÕÍíÍ äíÓÊ áØÝÇ ÏæÈÇÑå ÓÚí ˜äíÏ"

    WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5

    THISFORM.txtUserName.Value = ""

    THISFORM.txtPassword.Value = ""

    THISFORM.txtUserName.SetFocus

ENDIF

عزیزان کمک

نقل قول:

---

نوشته شده توسط hmgjob

dbf ای که یوزر و رمز رو تطبیق می ده login هست و dbf ای که اطلاعات رو replace می کنم داخلش log2 هست
حالا هر بار که یوزر و پسوورد رو می زنم توی log2 در همون خط اول میریزه و یک خط جدید باز نمیکنه
میخوام قبل از او سه خطی که replace میکنه یم خط در بانک اطلاعاتی log2 باز بشه و سطر جدیدی که باز میشه فعال بشه
چون خودم چند خط append blank زدم ولی هر بار فقط داخل خط اول مینویسه
وقتی قبلش همینطوری append blank میزنم توی log2 سطر باز نمیکنه و توی login باز می کنه من می خوام توی log2 سطر باز بشه

LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value))



IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value)

    THISFORM.cUser = ALLTRIM(login.userid)

REPLACE log2.user WITH THISFORM.txtUserName.Value

REPLACE log2.date WITH DATE()

REPLACE log2.time WITH TIME()

DO FORM index1

    THISFORM.Release

ELSE

    #DEFINE MISMATCH_LOC "äÇã ˜ÇÑÈÑí íÇ ÑãÒ ÕÍíÍ äíÓÊ áØÝÇ ÏæÈÇÑå ÓÚí ˜äíÏ"

    WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5

    THISFORM.txtUserName.Value = ""

    THISFORM.txtPassword.Value = ""

    THISFORM.txtUserName.SetFocus

ENDIF

---

اگر از دستور append blank استفاده میکنی! که بعد از اون هرچی replace کنی تو همون سطر نوشته میشه اگر هم که بعد از دستور append ناحیه کاری رو تغییر دادی که باید شماره رکورد خالی اضافه شده رو ذخیره کنی بعد میتونی ازش استفاده کنی

select log2

append blank

replace user with thisform.textusername.value

خیلی ممنونم
عالی بود
درست شد
واقعا تشکر