新手上路，求指点：
如图，希望参考模拟关联的方式实现数据加载，其中客户信息表与客户联系表的共同列是客户代码。
要实现的功能是在点击截图下部tabcontrol的不同page时，为该page上的表（副本）加载数据，加载的条件是为截图上部分current行的客户代码
我在tabcontrol的selectindexchanged写的代码如下，但好像不好用，请高手指点。
Dim tabc As WinForm.TabControl
tabc = Forms("客户信息").Controls("TabControl1")
If tabc.SelectedIndex<>0 Then
With Tables("客户信息_客户")
Dim Filter As String
Filter = "客户代码 = " & .Current("客户代码")
Dim st As String
st = tabc.SelectedPage.text
Select Case st
Case "联系人信息"
If Filter >""
DataTables("联系人信息").LoadFilter = Filter
DataTables("联系人信息").Loadtop =""
DataTables("联系人信息").Load
End If
End Select
End With
End If
同时在截图上部附表的currentchanged增加事件，也不工作，没捣鼓出原因来
If Forms("客户信息").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim tabc As WinForm.TabControl
tabc = Forms("客户信息").Controls("TabControl1")
If tabc.SelectedIndex<>0 Then
With Tables("客户信息_客户")
Dim Filter As String
Filter = "客户代码 = " & .Current("客户代码")
Dim st As String
st = tabc.SelectedPage.text
Select Case st
Case "联系人信息"
If Filter >""
DataTables("联系人信息").LoadFilter = Filter
DataTables("联系人信息").Loadtop =""
DataTables("联系人信息").Load
End If
End Select
End With
End If
End If
此主题相关图片如下：截屏.gif
加好友 
发短信
Post By：2013/5/24 15:09:00 [只看该作者]
