Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么光标离开textbox控件后，其他对应控件里的数值就不见了？


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

主题：为什么光标离开textbox控件后，其他对应控件里的数值就不见了？
帅哥哟，离线，有人找我吗？
xfilemark
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		为什么光标离开textbox控件后，其他对应控件里的数值就不见了？  发帖心情 Post By：2013/4/24 12:05:00 [只看该作者]

为了通过“学生编号”调出对应的学生信息，我在“学生编号”（textbox控件）的Leave事件中写入调用对应数据的代码（如：校区，班级，入读时长...等等）。测试的时候，当我输入“学生编号”第一次敲回车键时，数据成功调出来了，当我再一次移动光标和敲回车健时，这些被调用的数据又全都消失了，请问这是什么原因，如何解决？谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/4/24 12:07:00 [只看该作者]

你TextBox的值变空了吧. 文件例子发上来看看便于快速帮助你排错.

 回到顶部
帅哥哟，离线，有人找我吗？
xfilemark
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		  发帖心情 Post By：2013/4/24 12:13:00 [只看该作者]

Dim dr As DataRow
dr = DataTables("payInfo").Find("id = '"& Forms("CC收费系统").controls("idText").Value &"'","ref desc",1)
If dr IsNot Nothing Then
    If Forms("CC收费系统").Opened Then
        Forms("CC收费系统").controls("pubSchText").Value = dr("pubSch")
        Forms("CC收费系统").controls("gradeText").Value = dr("grade")
        Forms("CC收费系统").controls("emailText").Value = dr("email")
        Forms("CC收费系统").controls("schText").Value = dr("sch")
        Forms("CC收费系统").controls("clasText").Value = dr("clas")
        Forms("CC收费系统").controls("dayClas1Text").Value = dr("dayClas1")
        Forms("CC收费系统").controls("dayClas2Text").Value = dr("dayClas2")
        Forms("CC收费系统").controls("subSchText").Value = dr("subSch")
        Forms("CC收费系统").controls("subClasText").Value = dr("subClas")
        Forms("CC收费系统").controls("daySubClasText").Value = dr("daySubClas")
        Forms("CC收费系统").controls("subSch1Text").Value = dr("subSch1")
        Forms("CC收费系统").controls("subClas1Text").Value = dr("SubClas1")
        Forms("CC收费系统").controls("daySubClas1Text").Value = dr("daySubClas1")
        Forms("CC收费系统").controls("subSch2Text").Value = dr("subSch2")
        Forms("CC收费系统").controls("subClas2Text").Value = dr("subClas2")
        Forms("CC收费系统").controls("daySubClas2Text").Value = dr("daySubClas2")
        Forms("CC收费系统").controls("dateStartTime").Value = dr("dateEndFrGift")
        
    End If
End If



bin，你好，以上是写在“学生编号”textBox控件的Leave事件的代码，麻烦帮我看看，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/4/24 12:15:00 [只看该作者]

你还是把文件发上来吧

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/4/24 15:19:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
xfilemark
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		  发帖心情 Post By：2013/4/24 16:44:00 [只看该作者]

谢谢谢“狐狸爸爸”！问题解决了！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询