- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]模拟关联表第一步出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63635)
-- 发布时间：2015/1/25 15:14:00
-- [求助]模拟关联表第一步出错
a
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模拟关联表第一步.rar |
-- 发布时间：2015/1/25 15:32:00
--
代码处理一下，加上单引号
Dim t As Table = Tables("窗口1_Table1")
With Tables("咨询登记")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "学员姓名 = \'" & .Current("学员姓名") & "\'"
End If
End With
-- 发布时间：2015/1/25 16:53:00
--
窗口中的表如何绑定 虚拟关联表
-- 发布时间：2015/1/25 16:54:00
--
啊
此主题相关图片如下：kb.jpg
-- 发布时间：2015/1/25 16:59:00
--
1、绑定子表；
2、编写主表的currentchanged事件
-- 发布时间：2015/1/25 18:03:00
--
a
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:模拟关联表窗口中的表.rar |
窗口中的表 关联不上呢 （窗口2 中的表）
-- 发布时间：2015/1/25 18:11:00
--
CurrentChanged代码
If Forms("窗口2").Opened()
Dim t As Table = Tables("窗口2_Table1")
With Tables("咨询登记")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "学员姓名 = \'" & .Current("学员姓名") & "\'"
End If
End With
End If
-- 发布时间：2015/1/25 19:03:00
--
在窗口表格 增加行 按钮 有时表不是很稳定 增加不上行
-- 发布时间：2015/1/25 19:12:00
--
代码
Dim nr As Row = Tables("意向课程").AddNew
nr("学员姓名") = Tables("咨询登记").Current("学员姓名")
-- 发布时间：2015/1/25 19:42:00
--
啊
此主题相关图片如下：sj.jpg
列弹出窗口，双击添加，填入表名是哪个？