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

heavenmusic 2003-10-23 12:16:28
请帮助....谢谢!!!!

****--保存之前的判断
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
...全文
14 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
newfang 2003-10-27
不知道你让给你改什么???

那个replace .. with ..语句你说不知道是干什么的吗??它是向append blank产生的
空记录里面写数据的!!
那个“update...&&这段不会写”这里最好能用repl ..with ..语句来修改,不要用
update,因为你已经锁定了记录,直接修改会比较快一点,而update...where ..会重新
查找再修改,而且SQL语句会使你不经意的打开一些表,使得某些打开表的语句产生错误!!
当然,这里可能不会出现此类问题……
回复
heavenmusic 2003-10-27
UP
回复
heavenmusic 2003-10-23
因为我的"保存"与"修改" 做为一个按钮......
回复
mgan 2003-10-23
****--保存之前的判断
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 2003-10-23
你能说的明白一点吗??

或是....用代码写一下....谢谢!!! :)
回复
chjpeng 2003-10-23
****--保存之前的判断
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 2003-10-23
****--保存之前的判断
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
回复
发动态
发帖子
VFP
创建于2007-09-28

2455

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
社区公告
暂无公告