- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]listbox选择 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189944)
-- 发布时间：2024/1/6 9:42:00
-- [求助]listbox选择
请教
有两个listbox控件 ，在选择第一个listbox1控件的任意一个值后，自动选择第二个listox
此主题相关图片如下：1.png
控件的值
此主题相关图片如下：1.png控件的值
-- 发布时间：2024/1/6 9:48:00
--
根据什么条件选择？如果按位置
listbox1的selectedindexchanged事件
listbox2.SelectedIndex= listbox1.SelectedIndex
-- 发布时间：2024/1/6 10:01:00
--
为什么listbox2没有反映，没有像listbox1一样呈现选中状态
-- 发布时间：2024/1/6 10:06:00
--
这种控件没有输入焦点是看不到选中状态的，一个窗口只能同时有一个控件为焦点模式，即listbox2呈现选中状态，那么listbox1也就无法呈现选中状态
-- 发布时间：2024/1/6 10:06:00
--
还不如右边不要使用listbox，也放一个表格算了
-- 发布时间：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编辑过]
-- 发布时间：2024/1/6 11:06:00
--
用一个listbox的时候，是怎么添加数据的？
-- 发布时间：2024/1/6 11:16:00
--
Dim 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
-- 发布时间：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)
-- 发布时间：2024/1/6 13:19:00
--
listbox可以多选不