- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 文本框内容与数据比对 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104449)
-- 发布时间：2017/7/29 13:59:00
-- 文本框内容与数据比对
请教版主：
表的内容已经建好，如何在“输入框”文本内输入“123”回车，此文本框内容查询表对应的“123”行对应的“001”，并在此文本框内显示“001”
或者输入“001”，也到表内查，是否有“001”存在
此主题相关图片如下：1.png
[此贴子已经被作者于2017/7/29 14:02:16编辑过]
-- 发布时间：2017/7/29 15:30:00
--
参考：http://www.foxtable.com/webhelp/scr/1058.htm
-- 发布时间：2017/7/30 15:21:00
--
做了，可以筛选但是效果不理想
此主题相关图片如下：2.png
筛选结果果
此主题相关图片如下：3.png
可是我想要的是这样的
此主题相关图片如下：4.png
代码如下：
If e.keycode = 13 Then
If e.form.controls("TextBox3").text <> "" Then \'文本框内容查询,表回显筛选结果
Tables("kmbn_cssj").Filter="第七列=\'" & e.form.controls("TextBox3").text & "\'"
End If
Dim txt4 = e.form.controls("Textbox4") \'把文本框3的内容,读到文本框4内
txt4.text = (txt4.text & "," & e.Sender.Text).Trim(",")
e.Cancel = True
e.Form.Controls("TextBox3").Text = Nothing \'清除文本框内容
Dim TextBox3 As WinForm.TextBox = e.Form.Controls("TextBox3") \'文本框获取焦点
TextBox3.Select()
TextBox3.SelectionStart = TextBox3.Text.Length
End If
-- 发布时间：2017/7/30 16:13:00
--
If e.keycode = 13 Then
Tables("kmbn_cssj").Filter="第七列=\'" & e.sender.text & "\'"
If Tables("kmbn_cssj").rows.count > 0 Then
Dim txt4 = e.form.controls("Textbox4")
txt4.text = Tables("kmbn_cssj").current("第一列")
End If
e.sender.selectall
end if