以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 关联公式与多行录入冲突问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57717)

--  作者:wumingrong1
--  发布时间:2014/9/29 20:13:00
--  [求助] 关联公式与多行录入冲突问题
"机房设备板件表" 中的PositionChanged中写有如下命令:

Dim t As Table = Tables("机房板件端口表")
Dim r As Row = e.Table.Current
If r Is Nothing Then  Return
With Tables("机房设备板件表")
    If .Current IsNot Nothing Then
        If r.IsNull("设备编号") Then          
            t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' And 设备型号 = \'" & .Current("设备型号") & "\'   And 设备编号 Is Null  And 板件槽位 = \'" & .Current("板件槽位") & "\'  And 板件型号 = \'" & .Current("板件型号") & "\'"
        Else
           t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' And 设备型号 = \'" & .Current("设备型号") & "\'  And 设备编号 = \'" & .Current("设备编号") & "\'  And 板件槽位 = \'" & .Current("板件槽位") & "\' And 板件型号 = \'" & .Current("板件型号") & "\'"
        End If
    Else
        t.Filter = "False"
    End If
    
End With

如果像下图右边的关联表“机房板件端口表”当前为空的话;在同时新增多行的时候项目会自动关闭;


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140929200610662.jpg
图片点击可在新窗口打开查看

如果像下图右边的关联表“机房板件端口表”已经存在有内容的话;在同时新增多行的时候就可以正常增加多行;


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140929200646319.jpg
图片点击可在新窗口打开查看

如果将"机房设备板件表" 中PositionChanged命令删除掉、也可以正常增加多行。帮我看一下是不是 PositionChanged的命令 有问题?



--  作者:有点甜
--  发布时间:2014/9/29 20:16:00
--  
 你的代码,条件应该只是关联列的内容,不要全部条件都加上去。
--  作者:有点甜
--  发布时间:2014/9/29 20:18:00
--  
 你做个简单的例子发上来吧,感觉有点乱