- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在项目中建立表间关联，以模拟关联表方式建立： (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136496)
-- 发布时间：2019/6/14 14:47:00
-- 在项目中建立表间关联，以模拟关联表方式建立：
在项目中建立表间关联，以模拟关联表方式建立：
表C_表A，表C_表B；
功能诉求：
在“主窗口”中，以模拟副本形式显示“主窗口_表A”、“主窗口_表B”；
表C中的行随着表A、表B的第一列新增而新增，若重复则不新增；
表C中的“第二列”的值=表A的“第二列”的值+表B的“第二列”的值。
-- 发布时间：2019/6/14 15:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1 (1).foxdb |
-- 发布时间：2019/6/14 17:45:00
-- 回复：（有点甜） [upload=foxdb,管理项目1 (1...
不能用“模拟关联表”的方式建立关联吗？
比如，帮助中的“用Table控件模拟关联表”的内容？
-- 发布时间：2019/6/14 18:04:00
--
不明白你的意思。如果要做到功能，参考2楼。
如果要模拟关联，请编写currentchanged等事件。
-- 发布时间：2019/6/15 16:10:00
-- 回复：（有点甜）不明白你的意思。如果要做到功能，参...
对应的“入库表”和“客户表”都已经写入了相应的currentchanged事件代码，但是，打开“开单界面窗口”，发现对应的“入库表”不显示行内容？
[此贴子已经被作者于2019/6/15 16:09:59编辑过]
-- 发布时间：2019/6/15 16:31:00
--
“开单界面窗口”currentchanged事件把客户表筛选为空，客户表currentchanged事件把入库表筛选为空了。
-- 发布时间：2019/6/15 16:40:00
-- 回复：（有点蓝）“开单界面窗口”currentchanged事件...
\'systemready = False
If e.Table.current Is Nothing Then Return
\'systemready = False
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("入库表").FindRow(dr)
If wz >=0 Then
Tables("入库表").Position = wz
End If
\'换行时,同客户列同步:
Tables("客户表").filter = ""
Dim i = Tables("客户表").FindRow("客户 = \'" & e.Table.current("客户") & "\'")
If i>=0 Then
Tables("客户表").position = i
Else
Tables("客户表").filter = "1=2"
End If
\'systemready = True
哪一句？
-- 发布时间：2019/6/15 16:53:00
--
自己写的代码知道是用来干嘛的吗？客户表有数据吗？