Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控制复制数据问题


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

主题：控制复制数据问题
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		控制复制数据问题  发帖心情 Post By：2020/4/29 10:41:00 [只看该作者]

RT，我已经设置好数据源，但是如果使用复制，就可以复制不属于这件衣服的颜色。导致后期对不上。有没有办法限制只能是comlist里面的数值

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

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/29 10:45:00 [只看该作者]

到表格datacolchanging事件判断一下，如果e.newvalue不属于下拉的内容，就取消录入e.cancel=true

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


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2020/4/29 10:51:00 [只看该作者]

以下是引用有点蓝在2020/4/29 10:45:00的发言：
到表格datacolchanging事件判断一下，如果e.newvalue不属于下拉的内容，就取消录入e.cancel=true
哥 我明白意思，但是不会写
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2020/4/29 10:52:00 [只看该作者]

e.newvalue不属于下拉内容，这个判断怎么写。。

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/29 10:56:00 [只看该作者]

下拉列表是怎么生成的？

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


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2020/4/29 10:59:00 [只看该作者]

If e.IsFocusCell Then
    If e.Col.Name = "花色" Then
        Tables("买断款").Cols("花色").ComboList = DataTables("款号花色").GetComboListString("花色","款号='"& e.Row("款号") &"'")
    End If
End If
下拉列表是这样的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/29 11:15:00 [只看该作者]

DataColChanging事件

If e.DataCol.Name = "花色" Then
    If e.NewValue > "" Then
        If DataTables("款号花色").find("款号='"& e.dataRow("款号") &"' And 花色='" & e.NewValue & "'") is nothing then
            e.Cancel = True '取消变动.
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2020/4/29 11:41:00 [只看该作者]

以下是引用有点蓝在2020/4/29 11:15:00的发言：
DataColChanging事件

If e.DataCol.Name = "花色" Then
    If e.NewValue > "" Then
        If DataTables("款号花色").find("款号='"& e.dataRow("款号") &"' And 花色='" & e.NewValue & "'") is nothing then
            e.Cancel = True '取消变动.
        End If
    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.03760 秒, 4 次数据查询