vf怎么将列表框中选定的内容添加到另一个列表框

如题所述

推荐答案 2011-06-23

添加按钮：
l1=thisform.list1.displayvalue
thisform.list2.additem(l1)

移出按钮：
thisform.list2.removeitem(thisform.list2.listindex)追问

我实践了，可为什么它只能选定第1列呀，谢谢！

追答

multiselect 是否可以同时选取多项

追问

做不出来呀！能不能只选择自己想要的字段，本人刚学所以请你不要觉得厌烦，谢谢！

追答

你将list1的multiselect属性改为.T.就要以同时选择多项，添加代码：
for i=1 to thisform.list1.listcount
if thisform.list1.selected(i)
thisform.list2.additem(thisform.list1.list(i))
endif
endfor

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/vOzWtBOWt.html

相似回答

...用什么命令实现将一个表中的字段值赋值给另一个表答：ON 表A.字段3 = 表B.字段3 注:根据提问人的要求,已将表B的记录减少,并使字段2的内容为空.这样就不需要前面的第1点的回答了.你可以将代码拷贝到VFP6.0中执行.表A,表B都位于E:\TEMP文件夹内.请注意按实际修改路径.

计算机二级vf的将一个表追加到另一个表要咋弄啊?答：(5)关键字:属性或属性的组合,其值能够唯一地标识一个元组。在Visual FoxPro中,主关键字和候选关键字就起唯一标志一个元组的作用。 (6)外部关键字:如果表中一个字段不是本表的主关键字或候选关键字,而是另一个表的主关键字或候选关键字,那么这个字段(属性)就称为外部关键字。 2关系的特点 (1)关系必须...

VFP将已添加的组合框设置为下拉列表框答：VFP将已添加的组合框设置为下拉列表框 10 并通过ROWSOURSE和ROWSOURSETYPE属性手工制定组合框的内容为“上海”和“北京”... 并通过ROWSOURSE和ROWSOURSETYPE属性手工制定组合框的内容为“上海”和“北京” 展开  我来答分享微信扫一扫网络繁忙请稍后重试新浪微博 QQ空间举报浏览825 次可选中1个...

VFP如何讲一个字段全部内容显示到下拉列表框答：在下拉列表框上点右键-生成器，然后选中相应的表，在字段中选择name字段，添加到右边。然后在下拉列表框的click或interactivechange事件中加入代码，如:c1=alltrim(this.value)sele from 表名 where name=c1 into cursor "temp"thisform.grid1.recordsource="temp"&&将查询到的结果放入表格控件中 ...

选择列表框全选添加到列表框请教答：.版本 2 .局部变量循环变量, 整数型 .计次循环首 (选择列表框1.取项目数 (), 循环变量).如果真 (选择列表框1.是否被选中 (循环变量－ 1))列表框1.加入项目 (选择列表框1.取项目文本 (循环变量－ 1), ).如果真结束 .计次循环尾 ()...

VB两个列表框,选中的项目移动到另一个列表框的代码是什么?答：VB有两个列表框，假设VB列表框的左列表为List1，右列表为List2，代码如下：Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem (Selected)End SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem (Selected)End SubPrivate Sub Form_Load()Command1....

vb中怎样使列表框1的项目添加到列表框2中答：Private Sub Command2_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next End Sub 全部添加 Private Sub Command1_Click() 只添加选定的 For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then List2.AddItem List1.List(i)Next End Sub Privat...

vb中如何将文件添加到列表框,再重这个列表框添加到另一个列表框答：For i = 0 To List1.ListCount - 1 '列表框索引是从0开始的 If List1.Selected(i) Then List2.AddItem List1.List(i) '如果被选择，则添加到LIST2里 End If Next End Sub Private Sub Command3_Click()Dim i As Integer List2.Clear For i = 0 To List1.ListCount - 1 Lis...

大家正在搜

vb如何表示列表框的内容被选中列表框中的列出的各项内容列表框控件中的列表内容表格中怎么选定所需要的内容列表框的内容有属性什么确定列表框中列出的各项内容用户可 vba窗体列表框添加内容清除列表框的所有内容用的方法是表格里面的内容怎么全选