- 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=25776)
-- 发布时间：2012/11/16 13:09:00
-- 怎样获取ListBox选定的值？
如题
-- 发布时间：2012/11/16 13:18:00
--
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
If lst.SelectedIndex = i Then
MessageBox.Show(lst.Items(i))
End If
Next
-- 发布时间：2012/11/16 13:35:00
--
此主题相关图片如下：未命名.jpg
我想达到的效果是：
选中“listbox”中的某个公司，按“新增”，新增入库单，并赋值“某个公司名称”
-- 发布时间：2012/11/16 14:29:00
--
Dim gsmc as string
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex > 0 Then
gsmc = lst.SelectedValue
End If
dim r as row = tables(xxx).addnew
r("gsmc") = gsmc
-- 发布时间：2012/11/16 15:07:00
--
谢谢，不过出现了错误
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/11/16 15:09:00
--
是不是写错了控件的名字？
"ListBox1" 改成你控件的名字
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
[此贴子已经被作者于2012-11-16 15:09:12编辑过]
-- 发布时间：2012/11/16 15:13:00
--
对，写错了，写成按钮的名字了！！！昏死哦
我说怎么对着说明书做不出来
-- 发布时间：2012/11/16 15:13:00
--
我以前的代码就少了“If lst.SelectedIndex > 0 Then”判断
-- 发布时间：2012/11/16 15:42:00
--
用啥按钮 直接用我的代码改改双击就可以了.
-- 发布时间：2012/11/16 16:25:00
--
用了“botton”啊，双击有时候不直观，我也不会改。