[求助]关于列表框值

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

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

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

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

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

这只是我的方法,能用担不是好方法.
图中左边为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

很好呀```

谢谢你呀```
果然是高手``以后有不会的``还要请教的``

呵呵

太感谢了```

夸奖了