>>我的保存按钮与更新的按钮写在一起,请修改??<<

[heavenmusic]

请帮助....谢谢!!!!

****--保存之前的判断
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

[chjpeng]

****--保存之前的判断
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 ..... &&&&&&&&&&&&&&&这段不会写??
**update先查詢記錄,再修改,不要用新增,replace就行了

=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

[chjpeng]

****--保存之前的判断
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 ..... &&&&&&&&&&&&&&&这段不会写??
**update先查詢記錄,再修改,不要用新增,replace就行了

=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

[heavenmusic]

你能说的明白一点吗??

或是....用代码写一下....谢谢!!! :)

[mgan]

****--保存之前的判断
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 吗 就是将添加的空行替换为数值啊
REPLACE nrecno WITH VAL(thisform.TxtNrecno.value)


Thisform.Refresh

[heavenmusic]

因为我的"保存"与"修改" 做为一个按钮......

[heavenmusic]

UP

[newfang]

不知道你让给你改什么？？？

那个replace .. with ..语句你说不知道是干什么的吗？？它是向append blank产生的
空记录里面写数据的！！
那个“update...&&这段不会写”这里最好能用repl ..with ..语句来修改，不要用
update,因为你已经锁定了记录，直接修改会比较快一点，而update...where ..会重新
查找再修改，而且SQL语句会使你不经意的打开一些表，使得某些打开表的语句产生错误！！
当然，这里可能不会出现此类问题……