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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关联表中子表数据的引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50151)

--  作者：viking
--  发布时间：2014/4/30 11:37:00
--  [求助]关联表中子表数据的引用

当前表：表A

子表：表A.表B

当前代码中想加入判断条件：当表B的第一列有内容时

下面的这两个按键也不能用。

这个怎么写？

这么写好像不行吧？

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then

        If e.Table.Current.isnull("第一列") = True Then
            If user.Name = e.Table.Current("业务负责") Then
                Forms("营业报账").Controls("删除利润单按键").Enabled = True
                Forms("营业报账").Controls("删除利润明细按键").Enabled = True
            Else
                Forms("营业报账").Controls("删除利润单按键").Enabled = False
                Forms("营业报账").Controls("删除利润明细按键").Enabled = False
            End If
        End If
    End If

[此贴子已经被作者于2014-4-30 11:38:14编辑过]

--  作者：Bin
--  发布时间：2014/4/30 11:40:00
--
代码没有错啊,你写在什么地方了?

--  作者：有点甜
--  发布时间：2014/4/30 11:40:00
--

这个意思？

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then

        If e.Table.Current.isnull("第一列") = False Then
            If user.Name = e.Table.Current("业务负责") Then
                Forms("营业报账").Controls("删除利润单按键").Enabled = True
                Forms("营业报账").Controls("删除利润明细按键").Enabled = True
            Else
                Forms("营业报账").Controls("删除利润单按键").Enabled = False
                Forms("营业报账").Controls("删除利润明细按键").Enabled = False
            End If
        End If
    End If

[此贴子已经被作者于2014-4-30 11:40:37编辑过]

--  作者：viking
--  发布时间：2014/4/30 11:43:00
--

PrepareEdit

这个里面，我现在纠结的是

If e.Table.Current.isnull("第一列") = FalseThen

这个：e.table 用的是当前表的第一列的数据

我想用的是表A.表B.第一列的数据。

--  作者：Bin
--  发布时间：2014/4/30 11:43:00
--

搞懂楼主的意思了

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then
  If user.Name = e.Table.Current("业务负责") Then
  If e.Table.Current.isnull("第一列") = True Then

                Forms("营业报账").Controls("删除利润单按键").Enabled = True
                Forms("营业报账").Controls("删除利润明细按键").Enabled = True
            Else
                Forms("营业报账").Controls("删除利润单按键").Enabled = False
                Forms("营业报账").Controls("删除利润明细按键").Enabled = False
            End If
        End If
    End If

--  作者：Bin
--  发布时间：2014/4/30 11:44:00
--
那就用tables("表A.表B")

--  作者：viking
--  发布时间：2014/4/30 11:46:00
--

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then

  If user.Name = e.Table.Current("业务负责") Then

  If tables("表A.表B") .Current.isnull("第一列") = True Then

                Forms("营业报账").Controls("删除利润单按键").Enabled = True
                Forms("营业报账").Controls("删除利润明细按键").Enabled = True
            Else
                Forms("营业报账").Controls("删除利润单按键").Enabled = False
                Forms("营业报账").Controls("删除利润明细按键").Enabled = False
            End If
        End If
    End If

那就是这样的。

[此贴子已经被作者于2014-4-30 11:46:08编辑过]