1.增加1个方法程序,thisform.upd_price

2.在thisform.upd_price写上
REPLACE 进价日期 WITH DTOC(DATE())
thisform.grid1.Refresh

3.绑定,在"查询"按钮上绑定,写在最后1行

BINDEVENT(thisform.grid1.column14.text1,"InteractiveChange",thisform,"upd_price")

修改了：
1、grid1.ReadOnly = .T.
2、Text10的 InteractiveChange 和 this.LostFocus 事件

吹老师，这个如果是通过查询时，修改进价，日期是没有变化的，不知如何设置？

IF this.Tag == "1"
    this.Tag = ""
    REPLACE 进价日期 WITH DTOS(DATE()) IN "兽药信息管理表"
    REPLACE 进价日期 WITH DTOS(DATE()) IN "temp"
ENDIF


我这样做了，可以了。如果是在查询的情况下，修改了进价，日期是会自动变的，但是要点更改才能把结果输送到原表中。

[此贴子已经被作者于2017-9-14 19:16编辑过]

这样应该可以了，谢谢

你好，
 你说的  *在 thisform.grid1.column14.text1.Valid 上写代码
repl 进价日期 with date()

我这个column14在属性窗口，是不存在的。因为是命令生成的，属于动态的。我该在哪些这个代码呢