Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉窗口的数据输入问题


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

主题：下拉窗口的数据输入问题
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		下拉窗口的数据输入问题  发帖心情 Post By：2021/1/14 19:27:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理.foxdb

密码：888888
　　我想点击车辆基本信息巷列单元格下的下拉窗口，如何不点击下拉窗口中的任何数据，直接点击下拉窗口外任意地方，巷列不应有任何数据输入，现在没点击任何数据，点击下拉窗口外任意地方，巷单元格自动有输入数据，这不符合要求，应如何处理？
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/14 22:11:00 [显示全部帖子]

不要按钮，如何在红色代码前再加一个判断，如果什么都没有选，e.Form.DropDownBox.CloseDropdown(False)　不输入任何数据，直接关闭窗口。
If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("增加巷_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("巷")
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing() 
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue() 
        End If
    End If
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/14 22:30:00 [显示全部帖子]

　　为什么自行设计下拉目录树在加一个下DropDownBox控件后，能实现这效果？在没点击目录树里任何字节，点窗口外任意地方，表中没输入任何数据。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/14 22:56:00 [显示全部帖子]

这样啊，那我改为目录树好了。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/15 10:48:00 [显示全部帖子]

用目树显示又绕回之前发的贴，目录树显示排序问题，如何让它安顺序显示。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=159291&skin=0
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/15 10:54:00 [显示全部帖子]

用表作下拉窗口在不选择任何数据下出现默认自带选项问题，用目录树作下拉窗口出现排序问题，加辅助列排序，目录树窗口能不显辅助就安顺序排序吗？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/15 11:03:00 [显示全部帖子]

行了，谢谢。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/29 15:08:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理2021012901.foxdb

密码：888888
　　我想车辆缴费情况查询窗口上的DropBox1下拉选项如缴费情况表中的车牌号码下拉选项一样，删除控件上的数据，控件为空值，输入控件上的值不存在于下拉目录树，则取消输入，这效果在缴费情况表中的车牌号码中实现了，但在窗口控件上我不知该写在哪个事件上，写在ValueChanged事件上报错：
'不允许输入下拉窗口不存在的车牌号码
If e.NewValue Is Nothing Then
    e.form.controls("DropBox1").text = Nothing
ElseIf DataTables("车辆基本信息").SQLfind("车牌号码 = '" & e.NewValue & "'") Is Nothing Then
    e.Cancel = True
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/29 17:19:00 [显示全部帖子]

这样写输入不属于车辆基本信息表车牌号码列的字符，没有取消办理入。
'不允许输入下拉窗口不存在的车牌号码
Dim Val As String = e.Form.Controls("DropBox1").Value
If Val Is Nothing Then
    e.Form.Controls("DropBox1").Value = Nothing
ElseIf DataTables("车辆基本信息").SQLfind("车牌号码 = '" & Val & "'") Is Nothing Then
    e.Cancel = True
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/29 17:54:00 [显示全部帖子]

我知道它不存在，但我要取消操作，不是为空！怎么实现？我试过改为e.sender，没用啊，依然不能取消操作。
[此贴子已经被作者于2021/1/29 17:55:59编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询