主题：请教代码问题

此主题相关图片如下：qq图片20130701093108.jpg

我想将帮助中的"自定义用户管理"登录界面增加用户分组项,如图所示,设计代码如下:

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 分组 From { Users }"
dt = cmd.ExecuteReader()
Dim cmn As WinForm.ComboBox = e.form.Controls("分组")

cmn.ComboList = DataTables("Users").GetComboListString("分组")

 

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.C

cmd.CommandText = "SELECT DISTINCT Name From {Users} Where [分组] = '" & e.Row("分组") & " "

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.Datarows

   cmb.Items.Add(dr("Name"))

Next

cmb.SelectedIndex = 0

红色为新增加内容,不能正常运行,请教代码如何整改?