主题：[求助]求解决项目错误(项目打包上传)

 你根本就没有声明全局变量_UserTable

 用户管理窗口->AfterLoad事件

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
lst.ComboList = _UserTable.SQLGetComboListString("Name")
If Lst.Items.Count > 0 Then
    lst.SelectedIndex = 0
End If

 用户管理窗口->删除用户按钮

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
    _UserTable.SQLDeleteFor("[Name] = '" & UserName & "'")
    lst.Items.RemoveAt(lst.SelectedIndex)
    lst.Select()
End If

 把二楼的代码_UserTable，改成对应表名

 lst.ComboList = DataTables("Users").SQLGetComboListString("Name")