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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于数据库表关系建立

共有13088人关注过本帖树形打印复制链接主题：关于数据库表关系建立

peibaomin

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

加好友

发短信

等级：一尾狐帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00

Post By：2017/7/31 12:29:00 [只看该作者]

老师在哪个事件写代码？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/31 12:41:00 [只看该作者]

你在哪里赋值，就写在哪个事件。

peibaomin

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

加好友

发短信

等级：一尾狐帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00

Post By：2017/7/31 12:55:00 [只看该作者]

是写在下拉窗口的双击事件吗？

在选择数据时怎样加一个判断,来判断机具是否被占用,如果是占用双击该数据则弹出一个提示框并不给表赋值并清空选择,如果未被占用则双击该数据并将该数据赋值给表的相应字段。

[此贴子已经被作者于2017/7/31 13:46:22编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/31 15:05:00 [只看该作者]

以下是引用peibaomin在2017/7/31 12:55:00的发言：
是写在下拉窗口的双击事件吗？

[此贴子已经被作者于2017/7/31 13:46:22编辑过]

DropDownClosed 事件

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        If tbl.current("某列") = "占用" Then
            msgbox("已占用")
        Else
            e.Form.DropDownBox.Value = tbl.Current("客户ID")
            e.Form.DropTable.current("第二列") = tbl.Current("第二列")
        End If
    End If
    If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
        e.Form.DropTable.FinishEditing()
    Else '如果是通过窗口下拉的
        e.Form.DropDownBox.WriteValue()
    End If
End If

裴保民

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

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/7/31 15:53:00 [只看该作者]

老师怎么做不成呢？

我想实现在商户表中单击“机具编号”字段将弹出一个下拉框，选择某一个数据后双击该数据即可实现（1）首先判断机具库存表中该条记录是否已经被其他商户使用，如果已被其他商户使用则执行弹出一个提示框提示客户该机具已被站用不能绑定该商户，不给任何表赋值，并恢复原值；如果未被其他客户使用怎执行将该条记录赋值给商户表中的 “机具编号”和“机具条码”字段，同时将商户表中该商户的“商户编号”和“法人姓名” 赋值给机具库存表中刚才所选的数据对应的字段中，并将“机具是否绑定”字段变为已绑定状态。