use bmk
for i=7 to 31 step 3
h=field(i)
m=field(i+1)
n=field(i+2)
sele zkz,xm,&h,&m,&n from bmk where empty(&h.)=.f. into table right(alltrim(&h.),2)
next
close all

运行时sele语句出错：命令中含有不能识别的短语或关键字，估计是&宏替换函数出了问题，请指教！

谢谢指教！
select xm,&(h),&(m),&(n) from xkshi4 where empty(&(h))=.f. into table right(alltrim(&(h)),2)
加了（）也有错误提示：命令中含有不能识别的短语或关键字

VPF9.0sp2估计有问题，换个6试试看