- 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=120025)
-- 发布时间：2018/6/5 20:01:00
-- 求工号登陆后，界面显示工号对应姓名代码
1、数字工号登陆系统
2、系统主页某标签显示工号对应用户“某某”登陆
-- 发布时间：2018/6/5 20:39:00
--
参考：http://www.foxtable.com/webhelp/scr/0609.htm
-- 发布时间：2018/6/5 21:47:00
--
Dim lbl1 As WinForm.Label
lbl1 = e.Form.Controls("Label2")
lbl1.Text = "欢迎您:" & user.name
我是想取对应姓名列
lbl1.Text = "欢迎您:" & user.“姓名” 想要这样的效果。不知我说清楚没有
就是有个外部登录表。有“name”列记录的是工号 和“”姓名”列是记录用户
想工号登陆，显示对应姓名。
-- 发布时间：2018/6/5 22:02:00
--
通过工号到表里查询：http://www.foxtable.com/webhelp/scr/0396.htm
-- 发布时间：2018/6/5 22:32:00
--
没捣鼓出来
-- 发布时间：2018/6/5 22:39:00
--
dim 工号 as string = "001"
Dim dr As DataRowdr = DataTables("用户").Find("name = \'" & 工号 & "\'")
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("Label2").Text = dr("姓名"))
End If
-- 发布时间：2018/6/5 23:57:00
--
Dim 工号 As String =User.Name
Dim dr As DataRow
dr = DataTables("员工登陆").Find("name = \'" & 工号 & "\'")
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("Label2").Text ="欢迎您:" & dr("姓名")
End If
谢谢有点蓝，我搞定了。十分感谢！！