这是一个表单集，第一个表单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


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

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

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

我的按钮事件中有APPEND BLANK 啊

增加的CLICK事件：
APPEND BLANK

保存"
thisform.Refresh()