窗口1中,上表是父表(Table1),下表是子表(Table2)。在父表(Table1)筛选后,新增子表行是,发现子表中没有显示新增的行。
新增按钮代码:
If Tables("窗口1_Table1").Current.IsNull("注册备案_证号") = False Then
Dim dr As Row = Tables("窗口1_Table1").Current
Dim d2 As Row = Tables("窗口1_Table2").AddNew
If dr IsNot Nothing Then
d2("标识码") = dr("标识码")
d2("注册证号") = dr("注册备案_证号")
d2("注册证效期_开始时间") = dr("注册备案_效期始")
d2("注册证效期_结束时间") = dr("注册备案_效期")
d2("生产企业") = dr("生产企业")
d2("注册证有无") = dr("注册备案_有无")
d2("配送公司") = dr("配送公司")
d2("类别") = dr("类别")
d2("版本") = dr("版本")
End If
Else
MessageBox.Show("信息录入不齐全,请重新录入!", "提示")
End If
父表(Table1)的CurrentChanged代码:
If e.Table.Current Is Nothing Then '如果Current为Nothing
e.form.controls("Table2").Table.Filter ="1=2"
Else
e.form.controls("Table2").Table.Filter ="标识码='" & Tables("窗口1_Table1").Current("标识码") & "'"
End If
请问老师问题出在哪里?谢谢!