主题：[原创] 貌似发现BUG 一个，请狐爸或工作人员证实

呵呵，不是bug，第二个按钮的代码改为：

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox2")
If lst.SelectedIndex >=0 Then
    Dim dr As DataRow = lst.SelectedItem
    MessageBox.Show(dr("第一列"))
End If

理由：

http://www.foxtable.com/help/topics/0932.htm

留意第一句话。