Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
tcseintist
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：309 威望：0 精华：0 注册：2014/4/9 18:14:00 		[求助]  发帖心情 Post By：2019/7/12 16:41:00 [只看该作者]

 我已经给某列设置了自定义列表项目，如图 ↓


图片点击可在新窗口打开查看此主题相关图片如下：0000.png
图片点击可在新窗口打开查看

我想让录入员只能录入列表项目内有的数据！就是数据必须和列表项目中存在的数据一致，才能保留

现在的情况是，录入员可以3种方式编辑数据：
1、手动输入、
2、也可以在列表上选择、
3、也可以复制黏贴的数据，

但是，除了第二种直接在列表上选择的方式，其他两种方式都可能存在数据和列表项目不一致的风险，我想不限制他们手动输入，也允许复制黏贴，但是会有一个验证过程，只有和列表项目中存在的数据一致，才能保留
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110809 积分：563983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/12 16:59:00 [只看该作者]


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


加好友 发短信
等级：婴狐 帖子：21 积分：309 威望：0 精华：0 注册：2014/4/9 18:14:00 		  发帖心情 Post By：2019/7/12 17:16:00 [只看该作者]

 这个我已经试过，有两个问题
1、设置禁止手动编辑，只是不能手动编辑，但是可以复制黏贴内容进去的。
2、我是想允许他手动编辑或复制粘帖的，只是做个验证不是列表内容不保留
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110809 积分：563983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/12 17:33:00 [只看该作者]

组合框Validating事件

Dim str() As String = e.Sender.ComboList.Split("|")
If Array.IndexOf(str,e.Sender.Text) < 0 Then
    e.Cancel = True
    e.Sender.Error = "不在列表中"
Else
    e.Sender.Error = ""
End If
 回到顶部
帅哥哟，离线，有人找我吗？
tcseintist
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：309 威望：0 精华：0 注册：2014/4/9 18:14:00 		  发帖心情 Post By：2019/7/15 10:14:00 [只看该作者]

 你好，我的是表格。。。不是窗体啊，表格属性里面找不到这个事件咯~~
 回到顶部
帅哥哟，离线，有人找我吗？
tcseintist
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：309 威望：0 精华：0 注册：2014/4/9 18:14:00 		  发帖心情 Post By：2019/7/15 10:15:00 [只看该作者]

我想允许用户手动编辑是因为想用户使用字典功能、同时有时候项目过多手动输入反而比较快，但是输入的必须要验证和列表已有的项目一致的，不一致的话该单元格不会编辑成功的返回一个空值。
[此贴子已经被作者于2019/7/15 10:18:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110809 积分：563983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 10:39:00 [只看该作者]

表格ValidateEdit事件

If e.Col.Name = "第二列" AndAlso e.Text > ""
    Dim str() As String = e.Col.ComboList.Split("|")
    If Array.IndexOf(str,e.Text) < 0 Then
        e.Cancel = True
        msgbox( "不在列表中")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
tcseintist
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：309 威望：0 精华：0 注册：2014/4/9 18:14:00 		  发帖心情 Post By：2019/7/15 11:14:00 [只看该作者]

 试了下哈，确实达到我想要的效果了，但是~！

还是有个问题咯：
输入非列表内容会被验证并弹出提示了，
但是，当我复制进去的内容，他并不会去验证，更不会有提示，如图附件——


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


加好友 发短信
等级：超级版主 帖子：110809 积分：563983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 12:01:00 [只看该作者]

DataColChanging事件

If e.DataCol.Name = "第二列" AndAlso e.NewValue > ""
    Dim str() As String = Tables("表B").Cols("第二列").ComboList.Split("|")
    If Array.IndexOf(str,e.NewValue ) < 0 Then
        e.Cancel = True
        msgbox( "不在列表中")
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询