VF下拉列表框问题

时间：2023-02-12 08:59:45
我在表单上建了一个选项按纽组：

一班  二班  三班  四班  五班......共二十个班，click代码如下：

public n
n=this.value
if n>0
use str(n)  
else
messagebox("请先选择班级",64,"提示")
endif

我现在想把选项按纽组按成下拉列表框，应该怎么操作？

请高手帮忙

6 个解决方案

#1



*-- combo1.init 事件代码

create cursor taba (bj c(10))

for i=1 to 20

    insert into taba values (transform(i)+"班")

endfor

*--- 上面四行代码可以不要

with thisform.combo1

   .columncount=1

   .displaycount=10

   .rowsource="taba.bj"

   .rowsourcetype=6

   .style=2

endwith

#2

COMBO1的属性也可以在表单属性窗口中设置

#3

感谢您及时回帖，我试了你的代码，组合模框是空白，什么也没有。我原先建的 选项按纽组达到的目的是：在表单上有二十个按纽，每个按代表一个班级，如果这个按纽组的value=1，就打开1班的成绩表也就是表  'str(1)',如果这个按纽的value=2，就打开2班的成绩表也就是表  'str(2)'。就是这段代码：
public n
n=this.value
if n>0
use str(n) 
else
messagebox("请先选择班级",64,"提示")
endif

我现在想把 选项按纽组要达到的效果改成组合框或列表框 即：在组合框或列表框中要出现二十个班，点一班就打开表“1”，点二班就打开表“2”
请您指教

#4

建议楼主应该看看书，这样下去是很危险的，组合框的最基础的知识都不了解，上面已经告诉你很清楚了，如何设置组合框的属性。

#5

好的，我研习你的这段代码，慢慢消化，这几次回帖，已经对我帮助很大了，不瞒您说，我们这儿偏僻，根本买不到这类书，我手头有几本VF的书，现在对我作用不大，好多东西都是通过网上学习的，网上有许多东西比书本上的好懂，比书本上的更实用，不过你能推荐几本这方面的书吗

#6

可参考VFP6.0帮助文件，下载地址： http://download.csdn.net/detail/lygcw9602/4538139

#1



*-- combo1.init 事件代码

create cursor taba (bj c(10))

for i=1 to 20

    insert into taba values (transform(i)+"班")

endfor

*--- 上面四行代码可以不要

with thisform.combo1

   .columncount=1

   .displaycount=10

   .rowsource="taba.bj"

   .rowsourcetype=6

   .style=2

endwith

#2

COMBO1的属性也可以在表单属性窗口中设置

#3

感谢您及时回帖，我试了你的代码，组合模框是空白，什么也没有。我原先建的 选项按纽组达到的目的是：在表单上有二十个按纽，每个按代表一个班级，如果这个按纽组的value=1，就打开1班的成绩表也就是表  'str(1)',如果这个按纽的value=2，就打开2班的成绩表也就是表  'str(2)'。就是这段代码：
public n
n=this.value
if n>0
use str(n) 
else
messagebox("请先选择班级",64,"提示")
endif

我现在想把 选项按纽组要达到的效果改成组合框或列表框 即：在组合框或列表框中要出现二十个班，点一班就打开表“1”，点二班就打开表“2”
请您指教

#4

建议楼主应该看看书，这样下去是很危险的，组合框的最基础的知识都不了解，上面已经告诉你很清楚了，如何设置组合框的属性。

#5

好的，我研习你的这段代码，慢慢消化，这几次回帖，已经对我帮助很大了，不瞒您说，我们这儿偏僻，根本买不到这类书，我手头有几本VF的书，现在对我作用不大，好多东西都是通过网上学习的，网上有许多东西比书本上的好懂，比书本上的更实用，不过你能推荐几本这方面的书吗

#6

可参考VFP6.0帮助文件，下载地址： http://download.csdn.net/detail/lygcw9602/4538139
标签：

相关文章