- 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=70195)
-- 发布时间：2015/6/17 10:34:00
-- 表中字段如何实现代码输入？？？
比如：
tables("员工资料")有“文化程度”这一列，窗口中”文化程度“这一控件（列表框）绑定该字段。问：
1、无论在窗口还是Table表中，点击下拉箭头能出现代码、名称下拉列表；
2、只需输入代码，即可自动实现名称的输入？
3、Table表中虽然能够以字段项目实现，但窗口中的控件如何实现这一功能咧？？
此主题相关图片如下：360截图20150617103207129.png
-- 发布时间：2015/6/17 10:42:00
--
控件也可以设置显示值和取值列 以及自动输入
-- 发布时间：2015/6/17 10:44:00
--
如果是窗口控件的话，就直接在ValueChanged事件写
SystemReady = False
Dim fdr As DataRow = Datatables("表A").Find("代码 = \'" & e.Sender.Text & "\'")
If fdr IsNot Nothing Then
e.Sender.Value = fdr("名称")
End If
SystemReady = True
-- 发布时间：2015/6/17 10:46:00
--
此主题相关图片如下：2.png
但该字段设置了数据字典后，不能直接输入代码，还必需挨个选！！！我想实现的是：如果直接输入01，就能出现博士。窗口控件也是如此！
此主题相关图片如下：3.png
在窗口控件中就实现不了啦？？？
[此贴子已经被作者于2015/6/17 10:49:41编辑过]
-- 发布时间：2015/6/17 10:47:00
--
用3楼的代码
-- 发布时间：2015/6/17 10:51:00
--
窗口中：用的text变化后执行事件：
For Each r As Row In Tables("词典").Rows
If e.Sender.Text = r("代码") Then
e.Sender.Value = r("名称")
End If
Next
-- 发布时间：2015/6/17 11:06:00
--
表里和控件里面，都必须用代码处理，根据代码查询名称，看3楼代码。