主题：窗口录入

我想在主表（业务大表）创建一个窗口。录入子表（支出明细）的内容。这个代码应该怎么改。

If e.form.controls("combobox2").value = "" Then

messagebox.show("请输入或选择支出项目")
Return

End If
If e.form.controls("Textbox1").value = "" Then

messagebox.show("请输入金额")
Return

End If

If e.form.controls("ComboBox3").value = "" Then

messagebox.show("请输入或选择收款人")
Return

End If
If e.form.controls("ComboBox4").value = "" Then

messagebox.show("请输入或选择支出账户")
Return
End If

Dim r As Row = CurrentTable.AddNew()
r("关单号") = e.Form.Controls("ComboBox1").Value
r("支出项目") = e.Form.Controls("ComboBox2").Value
r("金额") = e.Form.Controls("TextBox1").Value
r("收款人") = e.Form.Controls("ComboBox3").Value
r("支出账户") = e.Form.Controls("TextBox4").Value
r("报销日期") = e.Form.Controls("DateTimePicker1").Value
Forms("支出明细").Close()
Tables("支出明细").Current.Save()

此主题相关图片如下：截图12.jpg

是没有。我是想要录入到支出明细表。