以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助关于RowActivate出现的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51952)

--  作者:188802386
--  发布时间:2014/6/6 10:19:00
--  求助关于RowActivate出现的错误
事件代码如下:
Select Case user.name
    Case "成交管理"
        If DataTables.Contains("成交录入") = False Then
            DataTables.Load("成交录入|佣金明细")
        End If
        DataTables("成交录入").ReplaceFor("编辑者",Nothing,"编辑者 = \'" & User.Name & "\'")
        DataTables("成交录入").Save()
        Tables("成交录入").Cols.Remove("编辑者") \'移除编辑者列,避免用户直接修改此列
        \'实现使不同分组加载不同行
        If User.Group = "行政部" Then
            DataTables("佣金明细").LoadFilter = ""
        ElseIf User.Group = "一片区" Then
            DataTables("佣金明细").LoadFilter = "所属区域 = \'" & User.Group & "\'"
        ElseIf User.Group = "二片区" Then
            DataTables("佣金明细").LoadFilter = "所属区域 = \'" & User.Group & "\'"
        ElseIf User.Group = "三片区" Then
            DataTables("佣金明细").LoadFilter = "所属区域 = \'" & User.Group & "\'"
        ElseIf User.Name = "开发者" Then
            DataTables("佣金明细").LoadFilter = ""
        Else
            DataTables("佣金明细").LoadFilter = "店面经理 = \'" & User.Name & "\'"
        End If
        DataTables("佣金明细").Load()
\'        Forms("成交管理").Open()
\'        MainTable = Tables("LILY")
\'        If DataTables.Contains("授权") = False Then \'如果表C没有加载
\'            DataTables.Load("授权") \'加载表C
\'        End If
If DataTables.Contains("区域管理") = False Then \'如果表C没有加载
    DataTables.Load("区域管理") \'加载表C
End If
If DataTables.Contains("部门管理") = False Then \'如果表C没有加载
    DataTables.Load("部门管理") \'加载表C
End If
If DataTables.Contains("成交类型") = False Then \'如果表C没有加载
    DataTables.Load("成交类型") \'加载表C
End If
If DataTables.Contains("信息来源") = False Then \'如果表C没有加载
    DataTables.Load("信息来源") \'加载表C
End If
If DataTables.Contains("客户来源") = False Then \'如果表C没有加载
    DataTables.Load("客户来源") \'加载表C
End If
End Select

If Functions.Execute("shouquan","业务平台",e.Sender.Current.ImageKey) Then
    If Forms.Contains(e.Sender.Current.ImageKey) Then
        Forms(e.Sender.Current.ImageKey).show
        MainTable = Tables(Forms(e.Sender.Current.ImageKey).TableName)
    End If
Else
    MessageBox.Show("该控件正在建设中")
End If
为什么关联的佣金明细表没有加载数据呢

--  作者:Bin
--  发布时间:2014/6/6 10:20:00
--  
执行 DataTables("佣金明细").Load() 之前

执行一下 messagebox.show(DataTables("佣金明细").LoadFilter)   看看弹出内容是什么

--  作者:Bin
--  发布时间:2014/6/6 10:21:00
--  
看看是否有正常触发事件,如果有触发事件,有弹出内容,再检查 条件是否正确, 是否这个条件没有对应的内容
--  作者:188802386
--  发布时间:2014/6/6 10:33:00
--  
没有任何触发事件呢  但是这段代码在导航栏里面有效   现在放在listview里面的RowActivate里面就不行了
--  作者:Bin
--  发布时间:2014/6/6 10:36:00
--  
这个是双击的时候才会触发的哦 http://www.foxtable.com/help/topics/2872.htm