新手疑问,请各位狐友帮帮忙!!!!
如图:
我在公司编写了一个代开增值税发票申请表的程序,表单里上面显示客户的开票资料,下面列表框客户要开发票的产品清单。
有两个表,KHZL.DBF(客户资料)、DKFP.DBF(代开发票)
KHZL:公司名称,地址,电话......DKFP:公司名称,地址电话........
疑问:
1、以下是我点第二个按钮的程序,按钮目的:到前个客户资料处,当到了第一个客户资料处时第一第二个按钮不起作用
SKIP -1
IF BOF()
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.
ENDI
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.
THISFORM.REFRESH
可是我的程序结果是到了第一个客户资料后要再点一下第一第二个按钮才不起作用,请问怎么解决?
2、以下是我点第三个按钮的程序,按钮目的:到后个客户资料处,当到了最后个客户资料处时第三第四个按钮不起作用,显示最后一个客户资料
SKIP
IF EOF()
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.
ENDI
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.
THISFORM.REFRESH
程序结果是到了最后一个客户后要再点一下第三第四个按钮才不起作用,而且显示资料处无任何显示,请问怎么解决?
3、以下是我在第四个按钮的程序(到最后一个客户资料处),当我点到最后时我想让上面的客户资料处显示的是最后一个客户的资料。
THIS.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.
GO BOTTOM
THISFORM.REFRESH
程序结果显示资料处无任何显示,请问怎么解决?
4、点第八个按钮用于删除列表框里的一条记录,点了删除后列表框里还显示删除的记录,非要在表单里点一下列表框才更新,怎么解决列表框更新问题?
SELECT DKFP
DELETE
THISFORM.GRID1.REFRESH
IF MESSAGEBOX('真的要删除吗?',48+4,'信息提示')=6
ELSE
RECALL
ENDI
THISFORM.DISP
THISFORM.REFRESH