Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
办法真够笨的........只是把9000多列选择减少到9000/26=300多列选择....
还是前面的方法好,只是要完全输入代码才能出现名称,麻烦了点...
难道没有更好的方法?快速录入功能是比较普遍的应用啊........FOX老爹能不能加强一下这方面的功能?
我的简单办法,也是常用的,将表关联起来,加一个ID列,只需输入ID,后面的自动输入就可。
下载信息 [文件大小: 下载次数: ] | |
![]() |
我的简单办法,也是常用的,将表关联起来,加一个ID列,只需输入ID,后面的自动输入就可。
下载信息 [文件大小:242.7 KB 下载次数:3] | |
![]() |
谢谢回复,方法是不错,但如果是大量数据,要记忆ID号是比较麻烦的....
借口罢了,没有无法细分的数据!
凡事总有个度吧,你不可能要求十万八万行形成列表能飞快起来!要学会变通!
两者结合吧: Or 输入码首再选择列表 Or 在疾病列输入编码 Or 在疾病列输入疾病名称
if e.Datacol.name = "疾病" Then
Dim Da As DataTable = DataTables("疾病")
Dim dr As DataRow
Dim T1,T2 As String
T1=e.DataRow("疾病")
T2="[输入码] = '" & T1 & "'"
IF T1.indexof("→") >-1 Then
e.DataRow("疾病") = T1.split("→")(1)
ElseIF Asc(T1) > 64 And Asc(T1) < 91 and Asc(Right(T1,2)) > 64 And Asc(Right(T1,2)) < 91 Then
dr = Da.Find(T2)
if dr IsNot Nothing Then
e.DataRow("疾病") = dr("疾病名称")
Else
MessageBox.Show("『输入码』输入有誤!請檢查.", "提示")
End If
ElseIF Da.Find("[疾病名称] = '" & T1 & "'") is Nothing Then
MessageBox.Show("『疾病名称』输入有誤!請檢查.", "提示")
End If
End If
我明白老大的意思,钻牛角尖是不好的,要变通,但是偶尔钻钻牛角尖未必不好哦.....编写软件要考虑多方面的可能性啊.
况且我以前也接触过类似情况,人家就是利用名称拼音首字母进行快速录入的,而且数据量比我这个还大.
虽然变通不是不行,但对于最终用户来说,方便快捷才是王道.....
借口罢了,没有无法细分的数据!
别断章取义啊...前面我已经说了是自己在偷懒....
前面那么多朋友提供思路,真的非常感谢.
别断章取义啊...前面我已经说了是自己在偷懒....
前面那么多朋友提供思路,真的非常感谢.
其实项目列表中可以使用输入助手功能,比如输入M就可以将M的东西自动列出来,输的越多,数据就越细化。你可以试试,在列属性中设置。再方便的话我看看只能找个人帮你输数据了,绝对的偷懒,呵呵!开玩笑!
谢谢回复,方法是不错,但如果是大量数据,要记忆ID号是比较麻烦的....
我在想为什么要记ID号,先在疾病中将ID设置好,在输入中关联出来后ID不是一一显示了吗,只需要看着关联表中的ID输不就行了吗?关键ID要简单易记就更加好了。