- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- foxtable 在使用“字典”输入时的一些缺陷 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9622)
-- 发布时间：2011/4/28 4:42:00
-- foxtable 在使用“字典”输入时的一些缺陷
比如说我要使用“字典”，通过代码来输入人名。如王小刚，王晓刚，王兴国 我都打算用wxg代替，在数据字典里既是这样填写：
数据 显示值
wxg 王小刚
wxg 王晓刚
wxg 王兴国
希望在输入wxg的时候这3个名字都出来，再通过下拉列表进行选择。但是貌似“字典”里数据必须是不同的，不然会后一个值会覆盖掉上面一个相同的值。在这种情况下我输入wxg的时候只会出现“王兴国”这个人名。当然我可以把数据改为wxg1，wxg2，wxg3。但是这样做以后输入起来的确不方便。
个人认为在一些应用中会有这种相同的“数据”对应不同“显示值”的情况。还有，能不能把数据字典里的“代码项目”或“标准”里也添加 “数据表”功能。在有大量代码数据的时候如果还要一项一项专门在数据字典里输入将是一件很繁琐的事情。希望狐狸爸爸能够考虑上述问题并完善这项功能。
-- 发布时间：2011/4/28 7:21:00
--
这是没有办法的，字典必须有严格的对应关系。
-- 发布时间：2011/4/28 12:40:00
--
怎么会是没有办法呢? 我觉得从程序设计角度上是可以修改的，而且也不是很困难。只不过这个要看你们自己觉得值不值的修改罢了。
-- 发布时间：2011/4/28 12:49:00
--
学会了后，也许你自己可以做出来的。增加一列 GetPY 将指定汉字转换为拼音格式。并参照 多列数据字典 。
老大只是不想过早的让他的系统变得太“肥胖”了吧（猜测的）
-- 发布时间：2011/4/28 17:03:00
--
按照你的意思做的,只要在表B中在姓名列输入姓名后,然后回到表A,点击姓名列,会出来一个类似你要求的数据字典,此字典跟你的要求一摸一样的.只要勾选点确定.名字会自动输入姓名列.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:虚拟数据字典.table |
-- 发布时间：2011/4/28 17:20:00
--
虽然复杂了些但有点意思···· 其实只要在表事件中就可以搞定的。等下我来弄一个。
-- 发布时间：2011/4/28 17:35:00
--
看你的,不要窗口?
-- 发布时间：2011/4/28 18:25:00
--
呵呵，谢谢楼上的兄弟做的这个东西。但这个不是我需要的。而且用起来很繁琐，反而不如直接打名字。
-- 发布时间：2011/4/28 18:58:00
--
表事件：
PrepareEdit:::::::::::::
Dim s,s1,s2 As String
Dim mdm As New MultiDataMap
For i As Integer = 0 To DataTables("来源表").GetComboListString("取值列").split("|").length -1
s = getPY(DataTables("来源表").GetComboListString("取值列","取值列 is not null","取值列"),True).split("|")(i)
s1 = DataTables("来源表").GetComboListString("取值列").split("|")(i)
s2 = s2 & "" & s & "" & "-" & "" & s1 & "" & vbCrLf
Next
Tables("目的表").Cols("要生成的列表项目的列").ComboList = s2
AfterEdit:::::::::::目的表 该列属性中将允许直接输入设为True
If e.Col.Name = "要生成的列表项目的列" And e.Row("要生成的列表项目的列").contains("-") Then
e.Row("要生成的列表项目的列") = e.Row("要生成的列表项目的列").split("-")(1)
End If
-- 发布时间：2011/4/28 20:21:00
--
mr725兄你的东西测试有一点问题，后来我想想是做复杂了，在路上想到了还有一个更加简单的办法。就是利用表来做这个。但是传不上来。