问题标题:
请问VFP中下面这个程序该怎么翻译呢?s=""f=.T.***FOUND***FORi=1TOthisform.List1.CountIFthisform.List1.Selected(i)IFf***FOUND***s=thisform.List1.list(i)f=.F.ELSE***FOUND***s=s+thisform.L
问题描述:
请问VFP中下面这个程序该怎么翻译呢?
s=""
f=.T.
***FOUND***
FORi=1TOthisform.List1.Count
IFthisform.List1.Selected(i)
IFf
***FOUND***
s=thisform.List1.list(i)
f=.F.
ELSE
***FOUND***
s=s+thisform.List1.list(i)
ENDIF
ENDIF
ENDFOR
st="select&sfromordersintocursortmp"
thisform.Grid1.RecordSource=st
蒋嘉之回答:
设置变量s为空字符串,f为逻辑真,从头到尾搜索列表框(列表框中存放表orders的字段名),若第一次搜索到某一列表项被选中,将其值存入s,若以后再搜索到某一列表项被选中,则将其值追加到s后面,全部搜索完毕,将表orders的用列表框指定的字段内容作为虚拟表tmp,将虚拟表中的内容在表格grid1中显示出来.
点击显示
其它推荐