主题：请教代码问题

此主题相关图片如下：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

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

上个例子看看,代码似乎并没有问题.

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

显示错误如上,请教是什么问题?

你代码是写在哪里的?  窗口的ALterLoad? 那么何来的 e.Row 呢?  你想要获取的是什么?

如果是想获取下拉框选择的分组  那么你拼接的应该是 下拉框的值   而不是e.row

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:用户登录窗口.foxdb

利用自定义帮助项目和自己的代码制作了上面例子,请指教