Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
关联表的DataRowAdded事件:
Dim dr As DataRow = e.DataRow.GetParentRow("父表名称")
If dr Is Not Nothing Then
e.DataRow("日期") = dr("日期")
End If
这样:
Dim r As Row = Tables("父表名.子表名").AddNew
r(“日期") = Tables("父表名").Current("日期")