关联表子表如何插入行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

蓝老师，是我没有说清楚，我做的模拟关联，在产品编号和价格两列切换关联，希望在产品编号关联时，插入和增加行，不添加价格

价格关联时，插入和增加行，不添加产品编号，我这样写感觉就不对，您帮我看看

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

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

主题：关联表子表如何插入行