IF !isblank(allt()).and.!isblank(allt(thisform.text1.value)).and.!isblank(allt(thisform.text3.value))
    SELE 乘客信息数据表
    APPE blank
    REPL 车次 with allt() addi 日期 with datetime() addi 订购票人 with allt(thisform.text1.value) addi 身份证号 with allt(thisform.text3.value) addi 票价 with val(allt(thisform.label14.caption))
    MESSAGEBOX('订购成功！',48,"错误")
ELSE
    MESSAGEBOX('所有内容不能为空！',48,"错误")
ENDIF
我还想加一个自动减少余票的功能 怎么写代码啊

[此贴子已经被作者于2019-3-18 14:39编辑过]

我自己加了一条好像也不对

我直接把update 加在最后的

谢谢你

你好 我设计的退票的程序  他减去了第一个车次的票数 并没有减少我删去的那个车次的票数 为什么呢

IF !isblank(allt(thisform.text2.value))
    SELE 乘客信息
    SET SAFETY OFF
    thisform.grd乘客信息.RecordSource=null
    DELETE
    pack
    thisform.grd乘客信息.RecordSource='乘客信息'
    sele 车辆信息
    repl 剩余票数 with 剩余票数