事件代码如下：
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
为什么关联的佣金明细表没有加载数据呢
加好友 
发短信
Post By：2014/6/6 10:19:00 [只看该作者]
