[求助]关于列表框值 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → [求助]关于列表框值

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1049 人关注过本帖

标题：[求助]关于列表框值

只看楼主加入收藏

cyru008

等　级：禁止访问
帖　子：70
专家分：0
注　册：2007-4-25

楼主

问题点数：0 回复次数：6

[求助]关于列表框值

如何用程序把列表框中的一项或多项移到另一个空的列表框中,再向这个列表框中添加新的一项或多项,如果发生错误可以移回原列表框中?

[此贴子已经被作者于2007-5-12 22:42:36编辑过]

搜索更多相关主题的帖子: 列表框　

2007-05-12 22:20

cyru008

等　级：禁止访问
帖　子：70
专家分：0
注　册：2007-4-25

第 2 楼

得分:0

哈哈,成功了,弄了一晚上哦.

2007-05-13 12:04

sunny5566

等　级：新手上路
帖　子：2
专家分：0
注　册：2007-5-19

第 3 楼

得分:0

我的问题和你的差不多啊````是为一个表设计一个选字段对话框``

老兄``可不可以请教你```麻烦简单写下你是怎么做到的``我学习下

2007-05-19 22:24

cyru008

等　级：禁止访问
帖　子：70
专家分：0
注　册：2007-4-25

第 4 楼

得分:0

这只是我的方法,能用担不是好方法.
图中左边为list1 右边为list2
在表单init事件中添加代码:(*表示表或表中的字段)
select *
goto bottom
m=recno()
goto top
for s=1 to m
thisform.list2.additem(*)
skip 1
endfor
thisform.refresh

<<按钮代码:
aa=thisform.list2.listcount
for s=1 to aa
thisform.list2.listitemid=s
thisform.list1.additem(thisform.list2.value)
endfor
thisform.list2.clear
thisform.refresh
<按钮代码:
aa=thisform.list2.listitemid
if aa=0
else
thisform.list1.additem(thisform.list2.value)
thisform.list2.removelistitem(aa)
endif
thisform.refresh
>按钮代码:
aa=thisform.list1.listitemid
if aa=0
else
thisform.list2.additem(thisform.list1.value)
thisform.list1.removelistitem(aa)
endif
thisform.refresh
>>按钮代码:
aa=thisform.list1.listcount
for s=1 to aa
thisform.list1.listitemid=s
thisform.list2.additem(thisform.list1.value)
endfor
thisform.list1.clear
thisform.refresh