这是一个表单集，第一个表单FORM1的CAP和NAME都是报修单。数据环境中有“报修单”的表。第二个表单是报修单查询CAP是报修单查询，name是BXDXX。
第一个表单有3个按钮。分别为查询，增加和退出。
查询CLICK事件：thisformset.BXDXX.Show
增加的CLICK事件：
APPEND BLANK

保存"
thisform.Refresh()

退出的CLICK事件：
DO CASE
CASE 退出"
    THISFORMSET.报修单.RELEASE
    THISFORMSET.BXDXX.RELEASE
    THISFORMSET.RELEASE
CASE 保存"
    REPLACE 报修单.service_id WITH THISFORM.txtService_id.VALUE
    REPLACE 报修单.defect WITH THISFORM.txtDefect.VALUE
    REPLACE 报修单.service_type WITH THISFORM.txtService_type.VALUE
    REPLACE 报修单.find_defect WITH THISFORM.txtFind_defect.VALUE
    REPLACE 报修单.defect_description WITH THISFORM.txtDefect_description.VALUE
    REPLACE 报修单.duty_view WITH THISFORM.txtDuty_view.VALUE   
    REPLACE 报修单.accept_time WITH THISFORM.txtAccept_time.VALUE
    REPLACE 报修单.accept_dept WITH THISFORM.txtAccept_dept.VALUE   
    REPLACE 报修单.start_repair WITH THISFORM.txtStart_repair.VALUE
    REPLACE 报修单.complete_time WITH THISFORM.txtComplete_time.VALUE
    REPLACE 报修单.repair_engineer WITH THISFORM.txtRepair_engineer.VALUE
    REPLACE 报修单.how_time WITH THISFORM.txtHow_time.VALUE
    REPLACE 报修单.duty_repair_process WITH THISFORM.txtDuty_repair_process.VALUE
    REPLACE 报修单.parts_name WITH THISFORM.txtParts_name.VALUE   
    REPLACE 报修单.parts_type WITH THISFORM.txtParts_type.VALUE
    REPLACE 报修单.change_parts WITH THISFORM.txtChange_parts.VALUE
    REPLACE 报修单.acceptance WITH THISFORM.txtAcceptance.VALUE
    REPLACE 报修单.acceptance_per WITH THISFORM.txtAcceptance_per.VALUE   
    退出"
ENDCASE



第二表单有2个按钮，功能为输入维修单编号（service_id）或缺陷故障描述（defect_description），可以报修单表中相对应的信息。
第一个查找按钮代码：
bh = ALLTRIM(THISFORM.Text1.VALUE)
xm = ALLTRIM(THISFORM.Text2.VALUE)
IF EMPTY(bh) AND EMPTY(xm)
    MESSAGEBOX("维修单编号或缺陷故障描述必须输入一项！")
    thisform.Text1.SetFocus
ENDIF
SELECT 报修单
IF NOT EMPTY(bh)
    strsql = "service_id="+bh
ENDIF
IF NOT EMPTY(xm)
    IF NOT EMPTY(strsql)
        strsql = strsql + " AND Defect_description='" + xm + "'"
    ELSE
        strslq = "Defect_description='" + xm + "'"
    ENDIF
ENDIF
strsql = "LOCATE FOR " + strsql
&strsql.
IF NOT FOUND()
    MESSAGEBOX("没有找到符合的记录！")
ELSE
    THISFORM.HIDE
    THISFORMSET.报修单.Refresh()
ENDIF

第二个退出代码：
THISFORM.Hide


现在的问题是在第一个表单中输入信息，输入的貌似会覆盖，然后第二个表单查询功能中的缺陷故障描述查询出错。
麻烦大家帮忙看看吧~~~谢谢啊~~~~~~

輸入信息覆蓋是什麼意思？

就是我输入的记录会被我第二次输入的记录覆盖了。。。

本来目的是输入新记录。。而不是覆盖以前输入的上一个记录

一般來說，覆蓋上一個記錄，是因為你沒有添加新記錄。在REPLACE之前要APPEND BLANK，嚴格地說，是應該把記錄指針指到希望REPLACE的記錄上。

[ 本帖最后由 TonyDeng 于 2012-1-16 00:12 编辑 ]

我的按钮事件中有APPEND BLANK 啊

增加的CLICK事件：
APPEND BLANK

保存"
thisform.Refresh()

你點擊的順序呢？是不是點過【增加】之後又點了【查詢】？

至於第二個問題，你最好在執行檢索之前MessageBox(strsql)一下，我看到你有個strslq，與strsql不同。

左看右看，我覺得你第一個問題的表單這個設計有點古怪。既然點擊【增加】把【查詢】禁用了，同時把【增加】改為【保存】，為什麼不在點擊【保存】時REPLACE，而在點擊【退出】時執行“保存”的動作？你說有三個按鈕，但我看你的代碼似乎只處理了兩個按鈕，Command2的Caption變來變去。

看来对VFP的指针概念还没理解

第一个表单有3个按钮。分别为查询，增加和退出。

请楼主说明查询按钮是？
增加按钮是？
看上去保存按钮、退出按钮是，是切换的。