select lsb go top do while not eof() ghs=thisform.text1.value dh=thisform.text2.value rq=thisform.text3.value mc=thisform.grid1.column2.text1.value Insert into 采购入库详细表(名称,单号,供货商,日期) values(mc,dh,ghs,rq) skip thisform.refresh enddo