当我在录入数据时 如果发现库里已经存在的 就自动获取数据 不用录了 (主要是出库单据时用)

DO IT YOURSELF !
RELEASE JL表单GRID1.AFTERROWCOLCHANGE 事件代码
程序代码:PUBLIC JL(4) &&
SELECT A1
GO THIS.ACTIVEROW
FOR I=1 TO THIS.COLUMNCOUNT
JL(I)=EVALUATE(FIELD(I,[A1]))
ENDFOR
表单 COMMAND1.CLICK 事件代码INSERT INTO T (商品编号,商品名称) VALUES (JL(1),JL(2)) && 表T 为GRID2的数据源 ,字段名表,自己添加吧 THISFORM.GRID2.REFRESH
