*整理數(shù)據(jù)模塊
*程序名：zlsj
*程序員：莊稼
*開發(fā)日期：1997.12.24
*修改日期：
*修改記錄：

*變量說明


private all except p_*

*do jrz with p_gzrrxm,'開始整理數(shù)據(jù)'

sjks=23
dimension sjk(sjks)

sjk(1)='bxtc'
sjk(2)='chd'
sjk(3)='ckrjz'
sjk(4)='ckzz'
sjk(5)='dxbx'
sjk(6)='dxkrjz'
sjk(7)='dxkzz'
sjk(8)='dxpdb'
sjk(9)='dxs'
sjk(10)='dxth'
sjk(11)='dxxsz'
sjk(12)='fkfs'
sjk(13)='ghs'
sjk(14)='gzrr'
sjk(15)='jhd'
sjk(16)='rzk'
sjk(17)='spk'
sjk(18)='thtc'
sjk(19)='xsbx'
sjk(20)='xsrjz'
sjk(21)='xsth'
sjk(22)='ysk'
sjk(23)='zbpdb'

dhxx1='正在整理數(shù)據(jù)，請稍候...'
do form xxts name xxts
for jsq=1 to sjks
  do dksjk with sjk(jsq),sjk(jsq)
  reindex
endfor
xxts.release