vfp 精选问题两篇！解决立即给分，200分不够再加！希望能得到你的指点！最好能详细点！有详细代码并能解决200送！

Question

1.
在FORM的INIT事件里加：
Public Sub[30]
For i=1 to 30
    Thisform.Check1.Value=Sub[i]
Endfor
在FORM的UNLOAD中加入：
For i=1 to 30
    Sub[i]=Thisform.Check1.Value
Endfor
2.由于你在运行完SELECT语句以后，当前工作区为临时表lindeping，建议程序这样改：
select * from 人事档案!rskp;
where &ldp.=alltrim(thisform.combo1.displayvalue);
order by rskp.代码;
into cursor lindeping
If Reccount()==0
  messagebox("sorry!您的查询不存在！",48,"人事管理系统")
  Return
else
  do form rskpb2
  rskpb2.refresh
  thisform.release
endif
*!*仅供参考

Answer 1

哦，第二个方法好像不可行，在你的临时表中数据更新以后，应该重新把GRID控件绑定数据源。

Answer 2

用一个表来保存值。
form1的init
if file("SaveCheckValue.dbf")
   sele 0
   use SaveCheckValue
   scan
     checkname="check"+allt(str(xh))
     thisform.&checkname..value=checkvalue
   endscan
else 
   create table SaveCheckValue(xh n(2),checkvalue n(1))
   for i=1 to 13  &&13指你的check数
    appe blank
    repl xh with i,checkvalue with 0
  endfor
endfor

Answer 3

form的unload事件
if !used("SaveCheckValue")
    sele 0
    use SaveCheckValue
   
    scan
      nxh=xh
      checkname="check"+allt(str(xh))
      repl checkvalue with thisform.&checkname.value for xh=nxh
    endscan
endif

Answer 4

form的unload事件
if !used("SaveCheckValue")
    sele 0
    use SaveCheckValue
else
   sele SaveCheckValue
endifscan
   nxh=xh
   checkname="check"+allt(str(xh))
   repl checkvalue with thisform.&checkname.value for xh=nxh
   endscan

Answer 5

我不同意楼上的，没那么复杂，fcreate(value)，在磁盘上建立一个以当前值的文件,adir()就能检索出来，判断文件名称就可以了。

Answer 6

另一中方法：
form init
public aa
if file("aa.mem")
   restore from aa.mem
   for i=1 to alen(aa)
     checkname="check"+allt(str(i))
     thisform.&checkname..value=aa(i)
   endfor
else 
   dime aa(13) &&13是指你的check数
   store 0 to aa 
endifform unloadfor i=1 to 13
  checkname="check"+allt(str(i))
  aa(i)=thisform.checkname..value
endfor
save to aa.mem all like aa
release all like aa

Answer 7

这个办法比较好，不过我建议再把这个AA.MEM保存到一个.DBF中的MEMO字段中，里面再加一个Form名称或者别的什么标志，这样你就可以在一个表中保存很多个表单参数了.TO zhjame(三人行，必有我师) : 仔细想想你的那个办法吧，首先并不简单，另外搞得文件夹里全是些怪文件，乱不乱啊