Question

我做VF，其中一个表单按钮代码不会写，主程序也不会，求大神帮我完成这两项，要能连编成功！非常感谢

联系我，可以追加悬赏

Answer 1

说说看也许我能帮你！

追问

这是界面和用到的两个表，批准按钮希望可以实现，点击后，将“待批申购单”表中的选中的记录放到“已批申购单”表中，拒批按钮实现将“待批申购单”表中的选中的记录删除

追答

form1的Init事件代码
sele 1
USE 待批申购单.dbf EXCLUSIVE
sele 2
USE 已批申购单.dbf EXCLUSIVE
“批准”按钮Click事件代码
SELE 1
X1=ALLTRIM(THISFORM.List1.Value)
X2=ALLTRIM(THISFORM.Text2.Value)
X3=ALLTRIM(THISFORM.List2.Value)
X4=ALLTRIM(THISFORM.Text3.Value)
SELE 2
IF .NOT.EOF() THEN
GO BOTTOM
ENDIF
APPEND BLANK
REPLACE 申购编号 WITH X1,申购日期 WITH X2,申购物品名 WITH X3,申购原因 WITH X4
SELE 1
“拒批”按钮Click事件代码
SELE 1
RR=RECNO()
DELE RECORD RR
PACK
怎么也不评论下，这可是我写出来的！