[浏览完整版]
标题：[求助]listbox选择
1楼
riyuan 发表于：2024/1/6 9:42:00请教
有两个listbox控件 ，在选择第一个listbox1控件的任意一个值后，自动选择第二个listox
此主题相关图片如下：1.png
控件的值
此主题相关图片如下：1.png控件的值
2楼
有点蓝 发表于：2024/1/6 9:48:00根据什么条件选择？如果按位置
listbox1的selectedindexchanged事件
listbox2.SelectedIndex= listbox1.SelectedIndex
3楼
riyuan 发表于：2024/1/6 10:01:00为什么listbox2没有反映，没有像listbox1一样呈现选中状态
4楼
有点蓝 发表于：2024/1/6 10:06:00这种控件没有输入焦点是看不到选中状态的，一个窗口只能同时有一个控件为焦点模式，即listbox2呈现选中状态，那么listbox1也就无法呈现选中状态
5楼
有点蓝 发表于：2024/1/6 10:06:00还不如右边不要使用listbox，也放一个表格算了
6楼
riyuan 发表于：2024/1/6 10:18:00此主题相关图片如下：1.png
此主题相关图片如下：2 (2).png
如果用一个listbox ,添加是正常的，但是删除的时候 ，在表中恢复的数据就不对，
删除的代码：
Dim lst,lst1 As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
Dim r As Row = Tables("te_table1").addnew
r("党员编号") = lst.Items(lst.SelectedIndex)
r("姓名") = lst.Items(lst.SelectedIndex)
lst.Items.Removeat(lst.SelectedIndex)
[此贴子已经被作者于2024/1/6 10:18:59编辑过]
7楼
有点蓝 发表于：2024/1/6 11:06:00用一个listbox的时候，是怎么添加数据的？
8楼
riyuan 发表于：2024/1/6 11:16:00Dim lst As WinForm.ListBox
Dim rs As List(Of Row) = Tables("te_table1").GetCheckedRows
If rs.Count = 0 Then
messageBox.Show("没有选中可操作的记录","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
For Each r As Row In rs
lst = e.Form.Controls("ListBox1")
'lst1 = e.Form.Controls("ListBox2")
lst.Items.add( r("党员编号") & space(8) & r("姓名") )
r.Delete
Next
End If
9楼
有点蓝 发表于：2024/1/6 11:30:00反过来按空格拆分呗
Dim lst,lst1 As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
Dim r As Row = Tables("te_table1").addnew
dim ss() as string = lst.Items(lst.SelectedIndex).replace(space(8),space(1)).split(space(1))
r("党员编号") = ss(0)
r("姓名") = ss(1)
lst.Items.Removeat(lst.SelectedIndex)
10楼
riyuan 发表于：2024/1/6 13:19:00listbox可以多选不