Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本框输入的数据


  共有3006人关注过本帖树形打印复制链接

主题：[求助]文本框输入的数据
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]文本框输入的数据  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 16:17:00 [显示全部帖子]

代码我放在了Validating
出现的问题是进入下一个控件，然后弹出正确的msgbox。但当我回到之前的文本框点击一下，文本框控件消失，且出现了2次msgbox，点击确定文本框回复。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 16:22:00 [显示全部帖子]

哦。这样对了。
我想在文本框后面增加一个图标，叉和勾。
如果输入的数据存在，打勾
如果输入的数据不存在，打叉。
这个该如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 16:54:00 [显示全部帖子]

用7楼代码实现不了？
通过放一个PictureBox 控件，让它动态显示叉或者是勾的图片。
放2个PictureBox 感觉站地方。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 17:08:00 [显示全部帖子]

If e.Sender.text <> "" Then
    Dim r As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号 = '" & e.sender.text & "'")    
    If r IsNot Nothing Then
        Dim pbn2 As WinForm.PictureBox = e.Form.Controls("PictureBox2")
        pbn2.Visible = True
        DataTables("临时版本跟踪表").LoadFilter = "临时版本编号 = '" & e.sender.text & "'"
        DataTables("临时版本跟踪表").Load        
    Else
        Dim pbn1 As WinForm.PictureBox = e.Form.Controls("PictureBox1")
        pbn1.Visible = True        
        MessageBox.show("你所输入的临时版本编号:" & e.Sender.text & "在数据库并不存在,请核查","提醒商务助理",MessageBoxButtons.OK,MessageBoxIcon.Error)
        e.Cancel = True
    End If
End If

好像不对啊。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 17:16:00 [显示全部帖子]

好像不对啊。
提示找不到PictureBox1控件，但是我有啊。
另外即使是数据存在，但pbn2.Visible = True也没执行。没有显示打勾的图片。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 17:24:00 [显示全部帖子]

把控件放到文本框右边。如图。可是没有提示PictureBox2控件找不到啊。而且输入存在的数据，打勾的图片也没出现。

图片点击可在新窗口打开查看此主题相关图片如下：这样.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/16 17:47:00 [显示全部帖子]

哦。找到问题了。
有一个新的问题是，当我选择了列表的某一项，这个肯定是存在的数据，希望一选择里面打勾，而不是等等光标移到下一个控件才打勾。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04614 秒, 5 次数据查询