主页

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

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

...全文

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

newfang 2003-10-27

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

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

回复赞

heavenmusic 2003-10-27

回复赞

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

社区成员

2.9w+

社区内容

VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。

申请成为版主

社区公告

暂无公告