- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新手代码请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33804)
-- 发布时间：2013/5/24 15:09:00
-- [求助]新手代码请教
新手上路，求指点：
如图，希望参考模拟关联的方式实现数据加载，其中客户信息表与客户联系表的共同列是客户代码。
要实现的功能是在点击截图下部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
-- 发布时间：2013/5/24 15:13:00
--
Filter = "客户代码 = " & .Current("客户代码") 字符串对比表达式应该加单引号
Filter = "客户代码 = \'" & .Current("客户代码") &"\'"
这种问题发个例子会比较快得到解决.
-- 发布时间：2013/5/24 17:41:00
-- 求代码帮助，增加了例子
bin 大师
俺是新手，上来直接买了个开发版，目前还只会参考论坛的案例做点小修改，小白呢，这两天在捣鼓。如前面所提到：
我希望在1楼的贴图界面中实现点击客户信息表不同行时，相关的联系人信息能按照客户代码加载，同样在每次打开tabcontrol的不同page时也能只加载对应客户代码下的信息，有点类似帮助手册中的模拟关联吧，谢谢啦。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:信息系统.zip |
-- 发布时间：2013/5/24 17:51:00
--
你这个数据也没有,打开就各种报错,根本没办法进行下去啊
-- 发布时间：2013/5/24 18:09:00
--
BIN 大师：