回复 6楼 吹水佬
我粘了,还是不行啊。。
comb init 事件
= ""
= 2
SELECT DISTINCT 姓名 FROM 兽药订单 INTO cursor abc
= "abc"
comb click 事件,
c1 = ALLTRIM(this.value)
thisform.grid1.RecordSource = ""
thisform.grid1.RecordSourceType = 1
SELECT RECNO() AS rec_no ,* FROM 兽药订单 WHERE 姓名 == c1 INTO CURSOR temp readwrite
thisform.grid1.RecordSource = "temp"
thisform.grid1.SetFocus
修改按扭的click事件
UPDATE 兽药订单 SET 订单号 = temp.订单号, 姓名 = temp.姓名 ,性别 = temp.性别,电话 = temp.电话,商品名 = temp.商品名 WHERE RECNO()=temp.rec_no
thisform.grid1.RecordSource = "兽药订单"
thisform.grid1.recordsourcetype = 0
select 兽药订单
GO top
thisform.grid1.Refresh