主题：怎样获取ListBox选定的值？

如题

 

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

此主题相关图片如下：未命名.jpg

 

我想达到的效果是：

 

选中“listbox”中的某个公司，按“新增”，新增入库单，并赋值“某个公司名称”

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

谢谢，不过出现了错误

此主题相关图片如下：未命名.jpg

 是不是写错了控件的名字？

"ListBox1" 改成你控件的名字

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")

对，写错了，写成按钮的名字了！！！昏死哦

 

我说怎么对着说明书做不出来

我以前的代码就少了“If lst.SelectedIndex > 0 Then”判断

用啥按钮 直接用我的代码改改双击就可以了.

用了“botton”啊，双击有时候不直观，我也不会改。