- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关联表子表如何插入行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149733)
-- 发布时间：2020/5/11 1:31:00
-- 关联表子表如何插入行
关联表子表插入行，不能实时显示，是什么情况？
-- 发布时间：2020/5/11 9:38:00
--
如果子表做过筛选，新增的行没有给筛选条件的列赋值，肯定是看不到的，因为不符合筛选条件。取消筛选即可
-- 发布时间：2020/5/11 14:34:00
--
蓝老师，是我没有说清楚，我做的模拟关联，在产品编号和价格两列切换关联，希望在产品编号关联时，插入和增加行，不添加价格
价格关联时，插入和增加行，不添加产品编号，我这样写感觉就不对，您帮我看看
Dim rdo As WinForm.RadioButton
rdo = Forms("窗口1").Controls("RadioButton1关联")
rdo.Checked = True
If CurrentTable.Name = "窗口1_Table1" Then \'如果当前表是模拟的关联表
Dim r As Row = Tables("产品").Current
If r IsNot Nothing Then
e.DataRow("产品编号") = r("产品编号")
End If
End If
Dim rdf As WinForm.RadioButton
rdf = Forms("窗口1").Controls("RadioButton2关联")
rdf.Checked = True
If CurrentTable.Name = "窗口1_Table1" Then \'如果当前表是模拟的关联表
Dim r As Row = Tables("产品").Current
If r IsNot Nothing Then
e.DataRow("价格") = r("价格")
End If
End If
-- 发布时间：2020/5/11 14:56:00
--
这个意思？
Dim r As Row = Tables("产品").Current
If r IsNot Nothing Then
if Forms("窗口1").Controls("RadioButton1关联").Checked
e.DataRow("产品编号") = r("产品编号")
else
e.DataRow("价格") = r("价格")
endif
End If
-- 发布时间：2020/5/11 15:19:00
--
写蓝老师了
