- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么取消选择列表项 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107986)
-- 发布时间：2017/10/13 17:20:00
-- [求助]怎么取消选择列表项
我的窗口制作了两个列表框，我想选中一个列表框中的某项后，会自动取消另一个列表项的选择，我通过设置SelectedIndex=-1的方法，试图取消另一个列表框的选择项，结果提示“未将对象引用设置到对象的实例”。请问老师我该怎么设置
[此贴子已经被作者于2017/10/13 22:55:32编辑过]
-- 发布时间：2017/10/13 17:37:00
--
设置成
e.form.controls("ComboBox1").Text = ""
-- 发布时间：2017/10/13 22:32:00
--
我那个是列表框不是组合框
-- 发布时间：2017/10/13 22:38:00
-- [求助]列表框怎么取消选择列表项
此主题相关图片如下：qq截图20171013223535.png
两个列表框我想选择其中一个列表框里的列表项，另一个列表框中被选中的列表项就会取消选择而处于未选择状态，我用e.Form.Controls("ListBox1").SelectedIndex=-1试图达到Listbox1取消选择，结果出现运行错误“未将对象引用设置到对象的实例。”
求老师指点迷津，怎么才能达到我想要未选择效果的效果
求老师指点迷津，怎么才能达到我想要未选择效果的效果
[此贴子已经被作者于2017/10/13 22:54:24编辑过]
-- 发布时间：2017/10/13 23:05:00
--
e.Form.Controls("ListBox1").SelectedIndex=-1这个代码测试没有问题
控件名称是否写错了？或者是其它代码的问题
-- 发布时间：2017/10/13 23:14:00
-- [求助]列表框怎么取消选择列表项
这个是源代码，麻烦老师看一下
此主题相关图片如下：qq截图20171013231205.png
以下内容为程序代码:
1 Dim hylst As WinForm.ListBox = e.Form.Controls("CHENYUAN_LIST")
2 Dim hylst1 As WinForm.ListBox = e.Form.Controls("CHENYUAN_LIST1")
3 Dim selitm As WinForm.CheckedComboBox = e.Form.Controls("SLC_ITM")
4 Dim tml As WinForm.ListBox = e.Form.Controls("ITM_LIST")
5 Dim hystr,selitmstr,itmlstr As String
6 hylst1.SelectedIndex=-1
7 hystr=hylst.SelectedValue
8 Dim hylr As DataRow = DataTables("会员列表").Find("姓名 =" & "\'" & hystr & "\'")
9 Dim cyr As DataRow = DataTables("游戏成员").Find("玩家姓名= \'" & hystr & "\'")
10 Dim itmstr() As String = {cyr("装备1"),cyr("装备2"),cyr("装备3")}
11 itmlstr=String.Join("|",itmstr)
12 tml.ComboList=itmlstr
13 selitm.ComboList=""
14 Dim stlr As List (of DataRow) = DataTables("物品栏").Select("会员ID =" & hylr("会员ID"))
15 For Each strlst As DataRow In stlr
16 selitmstr = selitmstr & "|" & strlst("物品名称")
17 Next
18 selitm.ComboList=selitmstr
1 Dim hylst As WinForm.ListBox = e.Form.Controls("CHENYUAN_LIST")
2 Dim hylst1 As WinForm.ListBox = e.Form.Controls("CHENYUAN_LIST1")
3 Dim selitm As WinForm.CheckedComboBox = e.Form.Controls("SLC_ITM")
4 Dim tml As WinForm.ListBox = e.Form.Controls("ITM_LIST")
5 Dim hystr,selitmstr,itmlstr As String
6 hylst1.SelectedIndex=-1
7 hystr=hylst.SelectedValue
8 Dim hylr As DataRow = DataTables("会员列表").Find("姓名 =" & "\'" & hystr & "\'")
9 Dim cyr As DataRow = DataTables("游戏成员").Find("玩家姓名= \'" & hystr & "\'")
10 Dim itmstr() As String = {cyr("装备1"),cyr("装备2"),cyr("装备3")}
11 itmlstr=String.Join("|",itmstr)
12 tml.ComboList=itmlstr
13 selitm.ComboList=""
14 Dim stlr As List (of DataRow) = DataTables("物品栏").Select("会员ID =" & hylr("会员ID"))
15 For Each strlst As DataRow In stlr
16 selitmstr = selitmstr & "|" & strlst("物品名称")
17 Next
18 selitm.ComboList=selitmstr
-- 发布时间：2017/10/13 23:19:00
--
我把整个项目文件发过去您看一下吧
[此贴子已经被作者于2017/10/13 23:48:40编辑过]
-- 发布时间：2017/10/13 23:47:00
--
自己找到问题所在了，事件触发矛盾引起死循环。谢谢老师热心帮助