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

[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

[hmgjob]

عزیزان کمک

[farhad_shiri_ex]

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

[hmgjob]

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