[求助]怎么取消选择列表项 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的窗口制作了两个列表框，我想选中一个列表框中的某项后，会自动取消另一个列表项的选择，我通过设置SelectedIndex=-1的方法，试图取消另一个列表框的选择项，结果提示“未将对象引用设置到对象的实例”。请问老师我该怎么设置

[此贴子已经被作者于2017/10/13 22:55:32编辑过]

设置成

e.form.controls("ComboBox1").Text = ""

我那个是列表框不是组合框

如图

此主题相关图片如下：qq截图20171013223535.png

两个列表框我想选择其中一个列表框里的列表项，另一个列表框中被选中的列表项就会取消选择而处于未选择状态，我用e.Form.Controls("ListBox1").SelectedIndex=-1试图达到Listbox1取消选择，结果出现运行错误“未将对象引用设置到对象的实例。”
求老师指点迷津，怎么才能达到我想要未选择效果的效果

[此贴子已经被作者于2017/10/13 22:54:24编辑过]

e.Form.Controls("ListBox1").SelectedIndex=-1这个代码测试没有问题

控件名称是否写错了？或者是其它代码的问题

这个是源代码，麻烦老师看一下

此主题相关图片如下：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

我把整个项目文件发过去您看一下吧

[此贴子已经被作者于2017/10/13 23:48:40编辑过]

自己找到问题所在了，事件触发矛盾引起死循环。谢谢老师热心帮助

主题：[求助]怎么取消选择列表项