主题：新增行跨表引用多行数据

做个小窗口，一个文本框输入禁止日，一个按钮用于确定增加，按钮代码：

Dim jzr as Integer = e.form.Controls("截止日输入框").Value
For Each dr1 As DataRow In DataTables("表A").Select("账截日  = " & jzr )
    Dim r2 As Row = Tables("表B").AddNew
    r2("DK") = dr1("DK")
    r2("账截日") = jzr
Next