Dim lst As new List(of String)
For i As Integer = 1 To 8
If e.Form.Controls("Xm" & i).text > "" AndAlso "Xm" & i <> e.Sender.Name Then
lst.Add(e.Form.Controls("Xm" & i).text)
End If
Next
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.CommandText = "Select 学生姓名,b.学生编号 From {学生基本信息} a Inner JOIN {缴学费} b ON a.学生编号 = b.学生编号 Where 班级 = '101' and 学生姓名 not in ('" & String.Join("','", lst.ToArray) & "')"
dt = cmd.ExecuteReader()
e.Sender.ComboList= dt.GetComboListString("学生姓名")