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