Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求几个关于下拉窗口与多值字段的问题？


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

主题：[求助]求几个关于下拉窗口与多值字段的问题？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		[求助]我已经将下拉窗口的控件改为手工了  发帖心情 Post By：2018/11/28 10:18:00 [只看该作者]

我已经将下拉窗口的控件改为手工了，代码也已写入，但是问题还是没解决，
测试操作：
在表中的下拉窗口中，输入铁箱3，托盘4，然后关闭下拉窗口，数据自动填充后，会发现，再次打开新的下拉窗口时，之前的输入的铁箱3，托盘4，这个操作居然还在，求帮助？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/28 10:27:00 [只看该作者]

以下是引用fengwenliuyan在2018/11/28 10:18:00的发言：
我已经将下拉窗口的控件改为手工了，代码也已写入，但是问题还是没解决，
测试操作：
在表中的下拉窗口中，输入铁箱3，托盘4，然后关闭下拉窗口，数据自动填充后，会发现，再次打开新的下拉窗口时，之前的输入的铁箱3，托盘4，这个操作居然还在，求帮助？


 

 

1、请认认真真看懂之前的例子和之前的代码，如果看不懂，请先学习基础知识

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

2、修改你的 DropDownOpened 事件啊，才能清空之前的数据啊

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


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/28 10:43:00 [只看该作者]

DropDownOpening事件

Dim str As String = e.Form.DropDownBox.Value
Dim p2 As String = "(铁箱|袋子|铁筐|托盘)"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim arr() As String = r.Split(str)
e.Form.Controls("TextBox1").text = ""
e.Form.Controls("TextBox2").text = ""
e.Form.Controls("TextBox3").text = ""
e.Form.Controls("TextBox4").text = ""
For i As Integer = 0 To arr.Length - 2 Step 2
    If arr(i+1) = "铁箱" Then
        e.Form.Controls("TextBox1").text =  arr(i)
    ElseIf arr(i+1) = "铁筐" Then
        e.Form.Controls("TextBox2").text =  arr(i)
    ElseIf arr(i+1) = "袋子" Then
        e.Form.Controls("TextBox3").text =  arr(i)
    ElseIf arr(i+1) = "托盘" Then
        e.Form.Controls("TextBox4").text =  arr(i)
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		那么要是想修改之前的下拉窗口，打开后，有用的数据也将被清空了？  发帖心情 Post By：2018/11/28 10:44:00 [只看该作者]

就是不懂应该怎么写清空下拉窗口新打开时的代码呀?
我要是写，每次重新打开下拉窗口，则窗口中的文本内容都为空，那么要是想修改之前的下拉窗口，打开后，有用的数据也将被清空了？
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2018/11/28 10:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：)c$zisgq9$v$eidkbru$d4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/28 10:54:00 [只看该作者]

e.Form.Controls("TextBox1").text = ""
e.Form.Controls("TextBox2").text = ""
e.Form.Controls("TextBox3").text = ""
e.Form.Controls("TextBox4").text = ""
Dim str As String = e.Form.DropDownBox.Value
If str = "" Then Return 
Dim p2 As String = "(铁箱|袋子|铁筐|托盘)"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim arr() As String = r.Split(str)
For i As Integer = 0 To arr.Length - 2 Step 2
    If arr(i+1) = "铁箱" Then
        e.Form.Controls("TextBox1").text =  arr(i)
    ElseIf arr(i+1) = "铁筐" Then
        e.Form.Controls("TextBox2").text =  arr(i)
    ElseIf arr(i+1) = "袋子" Then
        e.Form.Controls("TextBox3").text =  arr(i)
    ElseIf arr(i+1) = "托盘" Then
        e.Form.Controls("TextBox4").text =  arr(i)
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2018/11/28 10:57:00 [只看该作者]

谢谢大神

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