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