- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查找 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64347)
-- 发布时间：2015/2/11 16:59:00
-- 查找
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:病例.zip |
此主题相关图片如下：777.jpg
此主题相关图片如下：888.png
1。 例子病名管理表窗口中查找时为什么只显示查找的内容,怎样把表的所有行依然显示,光标停留在查找内容上呢（图777中）？
2。开头字相同的内容查找时光标位置有偏差（图888中）
-- 发布时间：2015/2/11 17:05:00
--
查找和显示，分开成两个控件，不要合并在一起。
-- 发布时间：2015/2/11 17:05:00
--
别用Fileter 用FInd http://www.foxtable.com/help/topics/0552.htm
-- 发布时间：2015/2/11 17:26:00
--
With e.Form
If e.sender.text <> "疾病名称" Then
Dim txt As String = e.Form.Controls("combobox1").Text
If txt = "" Then
Tables("病名管理").filter= ""
Else
txt = "\'*" & txt & "*\'"
Tables("病名管理").filter = "疾病名称 Like " & txt
End If
End If
End With
用find老出现错误,上面代码如何用find? 帮忙下!
-- 发布时间：2015/2/11 17:27:00
--
看2楼，你想做什么？
查找和显示不要用同一个控件啊。
-- 发布时间：2015/2/11 17:31:00
--
知道了,问题是执行查找命令是为什么只显示查找的行,其余行隐藏呢?
-- 发布时间：2015/2/11 17:33:00
--
以下是引用阿依肯在2015/2/11 17:31:00的发言：
知道了,问题是执行查找命令是为什么只显示查找的行,其余行隐藏呢?
你查找的时候，用的是Like，也就是，只要满足条件的，就会显示出来，绝对查询，请用等于号
With e.Form
If e.sender.text <> "疾病名称" Then
Dim txt As String = e.Form.Controls("combobox1").Text
If txt = "" Then
Tables("病名管理").filter= ""
Else
txt = "\'" & txt & "\'"
Tables("病名管理").filter = "疾病名称 = " & txt
End If
End If
End With