Foxtable(狐表) → 用户栏目 → 专家坐堂 → 超级郁闷的问题，能否帮我远程调试一下


  共有2861人关注过本帖树形打印复制链接

主题：超级郁闷的问题，能否帮我远程调试一下
帅哥哟，离线，有人找我吗？
蓝色理想
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00 		超级郁闷的问题，能否帮我远程调试一下  发帖心情 Post By：2014/8/17 18:02:00 [只看该作者]

主要是数据库是SQL server，没办法打包啊

 回到顶部
帅哥哟，离线，有人找我吗？
蓝色理想
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00 		  发帖心情 Post By：2014/8/17 18:03:00 [只看该作者]

问题真心郁闷，我是有程序设计底子的，弄了一下午也没搞定

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/17 18:07:00 [只看该作者]

 sqlserver需要安装才能使用的，只要你搭建了一个外网可以访问的sqlserver，项目就是不需要打包数据库的，

 回到顶部
帅哥哟，离线，有人找我吗？
蓝色理想
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00 		  发帖心情 Post By：2014/8/17 18:09:00 [只看该作者]

问题描述如下：


我要实现 主表--》二级明细表——》三级明细表的联动
可用于联动的依据为四列数据   开发项目  开发产品  合同名称  乙方

1、点击主表数据行时，二级明细表 三级明细表 按照主表数据的“乙方”进行过滤并显示数据
2、点击二级明细表具体数据行时，三级明细表按照 当前选定行的 开发项目  开发产品  合同名称  乙方 进行过滤并显示数据


问题是：  点击二级明细表中某些 没有三级明细数据的行时，二级明细表的显示情况 由有数据变为 无任何数据
 回到顶部
帅哥哟，离线，有人找我吗？
蓝色理想
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00 		  发帖心情 Post By：2014/8/17 18:10:00 [只看该作者]

全局事件CurrentChanged代码如下：

If e.Table.Form Is Nothing  Then  '判断一下是不是在数据表是不是在Form中
    '   MessageBox.Show("不在Form中")
    If Forms("乙方情况汇总表").Opened Then
        If e.Table.Current Is Nothing Or DataTables(e.Table.Name).DataCols.Contains("乙方")=False  Then
         '  MessageBox.Show(e.Table.Name  & " noting [乙方] = '"  & e.Table.Current("乙方") & "'")
            Tables("乙方情况汇总表_Table1").Filter = "[乙方] = ''"
        Else
        '  MessageBox.Show(e.Table.Name  & " not noting [乙方] = '"  & e.Table.Current("乙方") & "'")
            Tables("乙方情况汇总表_Table1").Filter = "[乙方] = '"  & e.Table.Current("乙方") & "'"
        End If
    End If
    
    
    If Forms("付款情况").Opened Then
        If e.Table.Current Is Nothing Or DataTables(e.Table.Name).DataCols.Contains("乙方")=False  Then
            Tables("付款情况_Table1").Filter = "[乙方] = ''"
            Forms("付款情况").Text= "付款情况:当前未选定有效行"
        Else
            Tables("付款情况_Table1").Filter = "[乙方] = '"  & e.Table.Current("乙方") & "'"  _
            & " and [付款金额] not is null and [付款金额]<> '0'"
            
            Tables("付款情况_Table1").Sort ="所属期间 DESC"
            Forms("付款情况").Text=  "全部合同-付款情况"
        End If
    End If
    
    If Forms("产值情况").Opened Then
        If e.Table.Current Is Nothing Or DataTables(e.Table.Name).DataCols.Contains("乙方")=False  Then
            Tables("产值情况_Table1").Filter = "[乙方] = ''"
            Forms("产值情况").Text=  "产值情况:当前未选定有效行"
        Else
            Tables("产值情况_Table1").Filter = "[乙方] = '"  & e.Table.Current("乙方") & "'"  _
            & " and ([申报产值] not is null or [本月付款比例] not Is null)  and  [是否差额调整]=false and [是否预估数]=false"
            Tables("产值情况_Table1").Sort ="所属期间 DESC"
            Forms("产值情况").Text= "全部合同-产值情况"
        End If
    End If
    
Else '在Form中的Row发生变化
    
    
    
    If e.Table.Focused Then
        
        If e.Table.Name = "乙方情况汇总表_Table1" Then
            
            If Forms("付款情况").Opened Then
                If e.Table.Current Is Nothing Then '如果Current为Nothing
                    Tables("付款情况_Table1").Filter = "[乙方] = ''"
                    Forms("付款情况").Text="付款情况"
                Else
                    Tables("付款情况_Table1").Filter = "[开发项目] = '"  & e.Table.Current("开发项目") & "'"  _
                    &  " and " & "[开发产品] = '"  & e.Table.Current("开发产品") & "'"  _
                    &  " and " & "[合同名称] = '"  & e.Table.Current("合同名称") & "'"  _
                    &  " and " & "[乙方] = '"  & e.Table.Current("乙方") & "'" _
                    & " and [付款金额] not is null and [付款金额]<> '0'"
                    Tables("付款情况_Table1").Sort ="所属期间 DESC"
                    Forms("付款情况").Text=  "单合同-付款情况"
                End If
            End If
            
            If Forms("产值情况").Opened Then
                If e.Table.Current Is Nothing Then '如果Current为Nothing
                    Tables("产值情况_Table1").Filter = "[乙方] = ''"
                Else
                    Tables("产值情况_Table1").Filter = "[开发项目] = '"  & e.Table.Current("开发项目") & "'"  _
                    &  " and " & "[开发产品] = '"  & e.Table.Current("开发产品") & "'"  _
                    &  " and " & "[合同名称] = '"  & e.Table.Current("合同名称") & "'"  _
                    &  " and " & "[乙方] = '"  & e.Table.Current("乙方") & "'" _
                    & " and ([申报产值] not is null or [本月付款比例] not Is null)  and  [是否差额调整]=false and [是否预估数]=false"
                    Tables("产值情况_Table1").Sort ="所属期间 DESC"
                    Forms("产值情况").Text= "单合同-产值情况"
                End If
            End If
        Else '若窗口=乙方情况汇总表时的 else
            Exit Sub
        End If '若窗口=乙方情况汇总表时的 end if
        
        
        
        
    Else '数据表所在窗口为focus的 else
        Exit Sub
    End If '数据表所在窗口为focus的 end if

    
    
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jianjingmaoyi
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00 		  发帖心情 Post By：2014/8/17 18:27:00 [只看该作者]

为啥用全局事件?表是动态加载的?

 回到顶部
帅哥哟，离线，有人找我吗？
蓝色理想
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00 		  发帖心情 Post By：2014/8/17 18:28:00 [只看该作者]

用最无奈的办法，自己搞定了
汗。。。。。。。。。。。。
真心呼唤老大弄一个调试器啊
在负责情况下，没调试器，跨表的事件处理
真的是一个噩梦啊
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询