主题：重发-关于窗口录入的问题，一次保存到多个表格。

过账打印按钮的代码：

Dim dt As DataTable  = DataTables("销售记录")
Dim flt As String
For Each dc As DataCol In dt.DataCols
    If flt > "" Then
        flt = flt & " And "
    End If
    flt = flt & dc.name & " Is Null"
Next
dt.DeleteFor(flt)
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Added
        dr("日期") = e.Form.Controls("DateTimePicker1").Value
        dr("销售单号") = e.Form.Controls("TextBox1").Value
        dr("客户名称") = e.Form.Controls("TextBox2").value
    End If
Next
dt.Save()
e.Form.Controls("DateTimePicker1").Value = Nothing
e.Form.Controls("TextBox1").Value = Nothing
e.Form.Controls("TextBox2").Value = Nothing
Tables("销售录入_Table1").Filter = "[_Identify] > " & dt.Compute("Max([_Identify])")
Tables("销售录入_Table1").AddNew(10)

其实最好用关联表解决，方便简单很多。

你可以看看一下帮助文件：使用指南 -  关联表 和 使用指南 - 表达式 这两章。

使用指南是基础，不能忽略，你这样的问题，用关联表不知道多好解决。