>>我的保存按钮与更新的按钮写在一起,请修改??<<
请帮助....谢谢!!!!
****--保存之前的判断
IF !EMPTY(thisform.txtbookid.Value)
LOCATE FOR alltrim(csbook.bookid) = ALLTRIM(thisform.txtbookid.Value)
IF !FOUND()
thisform.mtbooksave &&保存的属性
=MESSAGEBOX('保存成功!')
thisform.txtbookid.ReadOnly = .T.
ELSE
update ..... &&&&&&&&&&&&&&&这段不会写??
=MESSAGEBOX('已经存在!')
Thisform.txtbookid.GotFocus
ENDIF
ELSE
MESSAGEBOX('请填入存折号',32,'提示')
ENDIF
thisform.mtbooksave &&保存的属性代码:
APPEND BLANK
REPLACE bookid WITH thisform.TxtBookid.value
REPLACE bookdesp WITH thisform.TxtBookdesp.value
*!* replace lllock WITH thisform.TxtLllock.value && 不知道这是做什么用的?
REPLACE nrecno WITH VAL(thisform.TxtNrecno.value)
Thisform.Refresh