- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]外部数据源问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=37179)
-- 发布时间：2013/7/2 15:06:00
-- [求助]外部数据源问题
帮忙看一下那个地方出了问题，只要下面红色部分应用后，老是问UserGroup不属于表，红色部分停用时，运作是正常的。
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
\'Dim cmb1 As WinForm.ComboBox = e.Form.Controls("UserGroup")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
此主题相关图片如下：sss.bmp
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
cmb.Items.Add(dr("Name"))
\'cmb1.Items.Add(dr("UserGroup"))
Next
cmb.SelectedIndex = 0
\'cmb1.SelectedIndex = 0
-- 发布时间：2013/7/2 15:11:00
--
代码看起来没有问题才对 你上个例子看看.
-- 发布时间：2013/7/2 15:38:00
-- 回复：（Bin）代码看起来没有问题才对 你上个例...
另外追加一个问题，做锚定后，然后最大最小化总是会错位，越大屏错位越大。
-- 发布时间：2013/7/2 18:37:00
--
cmd.CommandText = "SELECT DISTINCT Name,UserGroup From {Users}"
-- 发布时间：2013/7/3 13:53:00
-- 回复：（e-png）cmd.CommandText = "SELECT DISTINCT ...
谢谢你E-PNG,
另外有一个疑问：
在登录按钮上：
If e.Form.Controls ("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = UserGroup
以上代码出现一个情况，当密码正确时，当前用户不属于该用户组时也能登录系统，是怎么会事，
想要的是用户名，用户组，用户密码三者必须匹配才能登录
-- 发布时间：2013/7/3 14:03:00
--
e.Form.Controls ("UserName").Value = dr("UserName") andAlso e.Form.Controls ("UserGroup").Value = dr("UserGroup") 再加多两个判断
[此贴子已经被作者于2013-7-3 14:02:57编辑过]
-- 发布时间：2013/7/3 15:09:00
-- 回复：（Bin）e.Form.Controls ("UserName").Value = ...
谢谢，这样加就可以了，那 下面这两个好像是多余的，起不了作用。
_UserName = UserName
_UserGroup = UserGroup