可能事这句的问题:Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13))
改成这样看看: Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split("|")