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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于自动录入的求助

共有2513人关注过本帖树形打印复制链接主题：关于自动录入的求助

Kariyia

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

加好友

发短信

等级：婴狐帖子：15 积分：161 威望：0 精华：0 注册：2018/2/26 13:56:00

关于自动录入的求助 发帖心情

Post By：2018/3/9 23:57:00 [只看该作者]

此主题相关图片如下：求助图片201803090001.png

如图中所示，我想在选择仓库的时候完成自动录入对应仓库代码的工作，想知道这个程序段怎么添加，在哪里添加。T,.T

在table里没有事件可以添加的，

如果直接拖动字段对应的控件到窗口中可以完成这个操作，但是如果当前表没有数据，在窗口载入的时候就会出错，O.O 矛盾啊

Kariyia

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

加好友

发短信

等级：婴狐帖子：15 积分：161 威望：0 精华：0 注册：2018/2/26 13:56:00

啊搞定了 O.O 发帖心情

Post By：2018/3/10 0:18:00 [只看该作者]

摸索摸索着就解决了 O.O

Kariyia

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

加好友

发短信

等级：婴狐帖子：15 积分：161 威望：0 精华：0 注册：2018/2/26 13:56:00

Post By：2018/3/10 0:19:00 [只看该作者]

如图

Kariyia

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

加好友

发短信

等级：婴狐帖子：15 积分：161 威望：0 精华：0 注册：2018/2/26 13:56:00

Post By：2018/3/10 0:20:00 [只看该作者]

传了两次图片都不见了 O.O

If e.Col.name="仓库代码"

Tables("仓库信息").Filter="仓库代码 ='" & e.Row("仓库代码") & "'"

If Tables("仓库信息").Rows.count=0

Exit Sub

Else

e.Row("收发仓库")=Tables("仓库信息").Rows(0)("仓库名称")

End If

有点蓝

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

加好友

发短信

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

Post By：2018/3/10 9:08:00 [只看该作者]

不要这样用，参考：http://www.foxtable.com/help/scr/0625.htm

http://www.foxtable.com/help/scr/1451.htm

If e.DataCol.Name = "仓库代码" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("收发仓库") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("仓库信息").Find("[仓库代码] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("收发仓库") = dr("仓库代码")
        End If
    End If
End If