if con1>0
  messagebox("连接成功！",0,"数据源")
  SELECT wxfl
  GO top
  DO WHILE !EOF()
     a1= lx
     a2= bj
     a3= sgd
     ?a1,a2,a3
  TEXT TO lcSql TEXTMERGE NOSHOW PRETEXT 4
          insert into dbo.wxfl (维修类型,维修标记,施工队)
          values (?a1,?a2,?a3)
  ENDTEXT
  SKIP
  ENDDO
if sqlexec(con1,lcSql)>0
  messagebox("插入成功",0,"数据源")
else
 messagebox("插入失败",0,"数据源")
endif

  SQLDISCONNECT(con1)  &&断开连接句柄，这东东占用服务器资源的，用完就断了它
else
  messagebox("连接失败，请检查网络及设置！",0,"警告")
ENDIF

我有10条记录，但执行结果是只有一条记录，结果显示为表wxfl的最后一条记录，全部覆盖上去了？

if con1>0
  messagebox("连接成功！",0,"数据源")
  SELECT wxfl
  GO top
  DO WHILE !EOF()
     a1= lx
     a2= bj
     a3= sgd
     ?a1,a2,a3
  TEXT TO lcSql TEXTMERGE NOSHOW PRETEXT 4
          insert into dbo.wxfl (维修类型,维修标记,施工队)
          values (?a1,?a2,?a3)
  ENDTEXT
  
if sqlexec(con1,lcSql)>0
  messagebox("插入成功",0,"数据源")
else
 messagebox("插入失败",0,"数据源")
endif

SKIP
  ENDDO

  SQLDISCONNECT(con1)  &&断开连接句柄，这东东占用服务器资源的，用完就断了它
else
  messagebox("连接失败，请检查网络及设置！",0,"警告")
ENDIF