vfp 怎么能在多个文本框中显示多条表数据
有个表单(form1),里面设置有text1-text12共12个文本框,对应的表是abc.dbf。该表中有三个字段A组、B组、C组(均为字符型),每个字段包含3-4个记...
有个表单(form1),里面设置有text1-text12 共12个文本框,对应的表是 abc.dbf。该表中有三个字段A组、B组、C组(均为字符型),每个字段包含3-4个记录。
问题:怎么能一开始就在12个文本框中分别显示表内所有三组数据?
(我自己写的代码只能显示每个字段的第一条数据,郁闷。。。。)
希望高手们指教!
自己找打答案了,,代码如下:
go 1
thisform.text1.value=abc.a组
thisform.text5.value=abc.b组
thisform.text9.value=abc.c组
go 2
thisform.text2.value=abc.a组
thisform.text6.value=abc.b组
thisform.text10.value=abc.c组
go 3
thisform.text3.value=abc.a组
thisform.text7.value=abc.b组
thisform.text11.value=abc.c组
go 4
thisform.text4.value=abc.a组
thisform.text8.value=abc.b组
thisform.text12.value=abc.c组 展开
问题:怎么能一开始就在12个文本框中分别显示表内所有三组数据?
(我自己写的代码只能显示每个字段的第一条数据,郁闷。。。。)
希望高手们指教!
自己找打答案了,,代码如下:
go 1
thisform.text1.value=abc.a组
thisform.text5.value=abc.b组
thisform.text9.value=abc.c组
go 2
thisform.text2.value=abc.a组
thisform.text6.value=abc.b组
thisform.text10.value=abc.c组
go 3
thisform.text3.value=abc.a组
thisform.text7.value=abc.b组
thisform.text11.value=abc.c组
go 4
thisform.text4.value=abc.a组
thisform.text8.value=abc.b组
thisform.text12.value=abc.c组 展开
展开全部
init 事件:给变量赋值,引用变量
public a1,a2,a3,a4,b1,b2,b3,b3,c1,c2,c3,c4
use abc
for i=1 to 4
ai=a组
bi=b组
ci=c组
endfor
thisform.text1.value=a1
thisform.text2.value=a2
.....
thisform.text12.value=c4
thisform.refresh
public a1,a2,a3,a4,b1,b2,b3,b3,c1,c2,c3,c4
use abc
for i=1 to 4
ai=a组
bi=b组
ci=c组
endfor
thisform.text1.value=a1
thisform.text2.value=a2
.....
thisform.text12.value=c4
thisform.refresh
追问
执行改代码后提示找不到变量 B4,程序崩溃。忽略后除了B4对应的text8之外,其他文本框均显示“F”,,能否麻烦你再看看,哪出问题了?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询