主题：根据list的值生成专业报表可以么？

参考

http://www.foxtable.com/webhelp/scr/1234.htm

参考

Dim lsb As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim str = lsb.items(0)
lsb.items(0) = lsb.SelectedValue
lsb.Items(lsb.SelectedIndex) = str
lsb.SelectedIndex = 0

或者

Dim lsb As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim str = lsb.SelectedValue
lsb.Items.RemoveAt(lsb.SelectedIndex)
lsb.ComboList = str & "|" & lsb.ComboList
lsb.SelectedIndex = 0