| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]文本框输入的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75885) |
| -- 作者：huhu -- 发布时间：2015/10/16 16:07:00 -- [求助]文本框输入的数据 文本框输入数据，如果没找到，希望弹出msgbox，并且需要一直输入到可以找到的数据才能执行下一步操作。代码有问题吗？ If e.Sender.text <> "" Then Dim r As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号 = \'" & e.sender.text & "\'") If r IsNot Nothing Then DataTables("临时版本跟踪表").LoadFilter = "临时版本编号 = \'" & e.sender.text & "\'" DataTables("临时版本跟踪表").Load Else MessageBox.show("你所输入的临时版本编号:" & e.Sender.text & "在数据库并不存在,请核查","提醒商务助理",MessageBoxButtons.OK,MessageBoxIcon.Error) Return End If End If
|
| -- 作者：大红袍 -- 发布时间：2015/10/16 16:11:00 -- 代码没什么问题，你现在什么问题？ |
| -- 作者：huhu -- 发布时间：2015/10/16 16:17:00 -- 代码我放在了Validating 出现的问题是进入下一个控件，然后弹出正确的msgbox。但当我回到之前的文本框点击一下，文本框控件消失，且出现了2次msgbox，点击确定文本框回复。
|
| -- 作者：大红袍 -- 发布时间：2015/10/16 16:18:00 -- return 改成 e.Cancel = true |
| -- 作者：huhu -- 发布时间：2015/10/16 16:22:00 -- 哦。这样对了。 我想在文本框后面增加一个图标，叉和勾。 如果输入的数据存在，打勾 如果输入的数据不存在，打叉。 这个该如何实现？
|
| -- 作者：大红袍 -- 发布时间：2015/10/16 16:24:00 -- 放两个pictureBox控件，然后控制其显示或隐藏。 |
| -- 作者：huhu -- 发布时间：2015/10/16 16:43:00 -- BeforeGetImage代码：难道这样实现不了？ Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1") Dim qsrlsbbbh As WinForm.ComboBox = e.Form.Controls("请选择或输入临时版本编号") Dim r As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号 = \'" & qsrlsbbbh.text & "\'") If r IsNot Nothing Then e.File = "Pass.ico" Else e.File = "Reject.ico" End If
|
| -- 作者：大红袍 -- 发布时间：2015/10/16 16:48:00 -- 看6楼。 |
| -- 作者：huhu -- 发布时间：2015/10/16 16:54:00 -- 用7楼代码实现不了？ 通过放一个PictureBox 控件，让它动态显示叉或者是勾的图片。
放2个PictureBox 感觉站地方。 |
| -- 作者：大红袍 -- 发布时间：2015/10/16 16:56:00 -- 放在一起，控制显示和隐藏即可啊。 |