- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 文本框与控件(重传示例文件) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26232)
-- 发布时间：2012/11/27 17:01:00
-- 文本框与控件(重传示例文件)
谁帮我一下,表A窗口的要求
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
-- 发布时间：2012/11/27 17:46:00
--
看了，但不懂你的意思，文本框1选择A表中的用户，是怎么选择呢？
再有，问题的重点是什么，好像听见的样子。
-- 发布时间：2012/11/27 18:53:00
--
刚回来,不好意思。这是一个简化的用户登录窗口，是用ComboBox选择（这里简化为文本框1），原窗口AfterLoad代码
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
cmb.Items.Add(dr("Name"))
Next
我想选择用户名（UserName，示例中的文本框1）后，自动显示该用户所担任的角色
表A = Users 文本框1 = UserName 用户 = Name
-- 发布时间：2012/11/27 18:59:00
--
第4行怎么不显示
cmd.C
-- 发布时间：2012/11/27 18:59:00
--
连接数据源
奇怪，怎么打不上去
cmd.C
重新上传了示例文件
-- 发布时间：2012/11/27 19:15:00
--
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.ConnectionName = "行政区域"
cmd.CommandText = "SELECT * From {行政区域} Where [省市] = \'" & dr("省市") & "\' And [县市] = \'" & dr("县市") & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("区号") = dt.DataRows(0)("区号")
dr("邮编") = dt.DataRows(0)("邮编")
Else
dr("区号") = Nothing
dr("邮编") = Nothing
End If
-- 发布时间：2012/11/27 19:53:00
--
重发了示例文件,能否做在示例文件上
-- 发布时间：2012/11/27 20:36:00
--
你都老六啦，是这样吗：
用户控件的ValueChanged：
Dim yh As String = e.Form.Controls("用户").value
Dim dr As DataRow
dr = DataTables("表A").Find("用户 = \'" & yh & "\'")
e.Form.Controls("TextBox2").value = dr("角色")
-- 发布时间：2012/11/27 20:55:00
--
你都老六啦，是这样吗：
用户控件的ValueChanged：
Dim yh As String = e.Form.Controls("用户").value
Dim dr As DataRow
dr = DataTables("表A").Find("用户 = \'" & yh & "\'")
e.Form.Controls("TextBox2").value = dr("角色")
我今天感冒了，不能用脑。惭愧，我只是狐龄长，还不够六尾狐的水平。多谢啦。