我在运行打印表单时遇到一个问题：无法由表单中选定的字段生成表文件temp_table1.dbf,请高手赐教，万分感谢！！！



下列代码如何修改，盼指点！
field_num=thisform.list2.ListCount
field_Str=" "
FOR i=1 to field_num
  IF i<>field_num
     field_Str=field_Str+thisform.list2.List(i)+","
  ELSE
     field_Str=field_Str+thisform.list2.List(i,1)
  ENDIF
ENDFOR
IF .not.empty(field_Str)
  SET FIELDS to &field_Str
  COPY TO temp_table1
  SET FIELDS off
  use temp_table1 IN 0
  
ELSE
  yn=MESSAGEbox("没有选择字段,是否重选?",4+32,"停息窗口")
  IF yn#6
     thisform.Release()
  ENDIF
ENDIF

下列代码用在表单的方法程序中出现错误
lcStr = ""
FOR lnj = 1 TO Thisform.list2.ListCount
    lcStr = lcStr + "," + Thisform.list2.list(lnj)
ENDFOR
lcStr = SUBSTR(lcStr, 2)
SELECT &lcStr FROM temp INTO CURSOR tabname

VFP9环境下运行没有问题

下列表单单击“简易报表”和“FRX报表”会出现上面的问题。盼指点。

问题已解决，上述代码修改如下：
field_num=thisform.list2.ListCount
field_Str=" "
FOR i=1 to field_num
    IF i<>field_num
      field_Str=field_Str+Thisform.list2.list(i)+ ","
    ELSE
     field_Str=field_Str+Thisform.list2.list(i)
   endif
ENDFOR

IF .not. empty(field_Str)
  COPY TO temp_table1 fields &field_Str
  use temp_table1 IN 0
  SELECT temp_table1
ELSE
   yn=MESSAGEbox("没有选择字段,是否重选?",4+32,"信息窗口")
   IF yn#6
     thisform.Release()   
   ENDIF
ENDIF

看下置顶的帖子年限限制