不允许单元格输入与目录树不相乎内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不允许单元格输入与目录树不相乎内容

共有3410人关注过本帖树形打印复制链接主题：不允许单元格输入与目录树不相乎内容

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

不允许单元格输入与目录树不相乎内容 发帖心情

Post By：2021/1/24 20:59:00 [显示全部帖子]

车辆基本信息表住址_巷列单元格中输入关健字后，在自定义下拉目录树查找对应字节，点字节后录入表A,由于表A能直接输入，禁止输入又无法打关键字查找，这样就造成人为直接输入内容与目录树名字不一致，如何设置当直接输入字符与目录树中名字不相乎时车辆基本信息表住址_巷列单元格不允许输入？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（修改后没问题了）.foxdb

密码：888888

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/24 21:58:00 [显示全部帖子]

你说的方法我都知道，不想把查找的文本框做到下拉窗口里，我就是不会写判断目录树字节名字是否与当前行文本相符代码，写过一下，不知对错，干脆问了。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/24 22:43:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "住址_巷"

If e.NewValue <> DataTables("巷").SQLfind("[巷] = '" & e.NewValue & "'") Then

e.Cancel = True

End If

Case "住址_号"

If e.NewValue <> DataTables("号").SQLfind("[号] = " & e.NewValue) Then

e.Cancel = True

End If

Case "住址_房"

If e.NewValue <> DataTables("房").SQLfind("[房] = " & e.NewValue) Then

e.Cancel = True

End If

End Select

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/24 22:44:00 [显示全部帖子]

可以了。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/25 21:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理2021012501.foxdb

密码：888888

上面的代码确实实现了我要的效果，但当我在车辆基本信息表添加行，并在巷、号、房的下拉选项选入字节，弹出的提示直接

Select Case e.DataCol.Name

Case "住址_巷"

If e.NewValue <> DataTables("巷").SQLfind("[巷] = '" & e.NewValue & "'") Then

e.Cancel = True

End If

Case "住址_号"

If e.NewValue <> DataTables("号").SQLfind("[号] = " & e.NewValue) Then

e.Cancel = True

End If

Case "住址_房"

If e.NewValue <> DataTables("房").SQLfind("[房] = " & e.NewValue) Then

e.Cancel = True

End If

End Select

这段代码错误！应如何解决？

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/25 21:40:00 [显示全部帖子]

不能这样写，这样写选目录树字节直接无法输入数据，单元格为空！

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/25 22:46:00 [显示全部帖子]

　　我要的不是禁止重复，而是目录树中没有的字节名称（即巷表巷列中没有的字符）不允许输入，因此帮助里的

Select Case e.DataCol.name
    Case "型号","规格"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("型号") = False AndAlso dr.IsNull("规格") = False Then
            If e.DataTable.Compute("Count([_Identify])","型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "'") > 1 Then
                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select

不成立！

[此贴子已经被作者于2021/1/25 23:04:02编辑过]