thisform.grid2.visible=.t.
 RESTORE FROM D:\水表报修\szb.txt addi
  lcodbcdriver  =ALLTRIM(szb_类型)
  lcodbcserver  =ALLTRIM(szb_服务器)
  lcodbcdatabase=ALLTRIM(szb_数据库)
  lcuid     =ALLTRIM(szb_用户)
  lcpwd     =ALLTRIM(szb_密码)
con1=sqlstringconnect('driver='+lcodbcdriver+';server='+lcodbcserver+';database='+lcodbcdatabase+';uid='+lcuid+';pwd='+lcpwd) &&建立测试连接句柄
if con1>0
thisform.grid2.recordsource='SQLEXEC(con1,"select 维修类型 from wxfl group by 维修类型 into cursor card_1")'
*SQLEXEC(con1,"select 维修类型 from wxfl group by 维修类型 into cursor card_1")
*             ENDIF
SQLDISCONNECT(con1)  &&断开连接句柄
else
  messagebox("连接失败，请检查网络及设置！",0,"警告")
ENDIF

显示的结果是什么