DataColChanging - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DataColChanging

共有2719人关注过本帖树形打印复制链接主题：DataColChanging

1234567

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00

DataColChanging 发帖心情

Post By：2023/11/3 14:31:00 [只看该作者]

禁止直接输入不在列表项目中的内容

DataColChanging

Tables("任务单").Cols("采购员").AllowDirectType = False

测试发现，当我进入系统后，第一次在单元格内还是能直接输入，输入一次后，才能正式生效。

cd_tdh

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3205 积分：21299 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2023/11/3 14:40:00 [只看该作者]

AllowDirectType

逻辑型，是否允许用户直接输入不在列表项目中的内容。
必须在设置ComboList属性之前，设置AllowDirectType属性，否则无效。

示例

Tables("订单").Cols("客户").AllowDirectType = False
Tables("订单").Cols("客户").Combolist = "CS01|CS02|CS03|CS04"

[此贴子已经被作者于2023/11/3 14:44:52编辑过]

1234567

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2023/11/3 14:47:00 [只看该作者]

帮助我看了：某一列的内容发生变化前执行，此时新值还没有写入表中，列的内容还是更改前的值。

Tables("任务单").Cols("采购员").AllowDirectType = False 那应该是不能更改的

为什么我刚打开文件后可以输入一次，输入一次后才真正生效。

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/11/3 15:25:00 [只看该作者]

DataColChanging

If e.DataCol.Name = "采购员" Then '如果是折扣列的内容发生变化。
If e.NewValue > "" Then '如果新值大于0.15。
if ("|" & Tables("任务单").Cols("采购员").Combolist & "|").contains("|" & e.NewValue & "|") = false then

e.cancel=true

end if

End If
End If