如图所示：

第一步：打开“销售”-“销售开单” 界面如下：

第二步：录入第一张单据 如下：

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

点击 “过账打印” 则该单据保存到 “销售记录”表中。

然后重新 打开该窗口 让我录入第二单：

录入第二单 如下：

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

过账打印--保存到 “销售记录”表中。

第一次 录入保存到“销售记录”表中 的前两行。

第二次 录入保存到“销售记录”表中 的最后一行。
 

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

同时 生成 一个 销售单 的记录 （该表用于 管理收款记录。）

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

项目如下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:琼富塑料管理系统_0829.zip

其实 如第二张图片  2011083011093649432.jpg  窗口录入的时候 绑定表到 “销售记录”表中是不对的。

个人认为应该是绑定到一个临时表中。

以上介绍的功能如何实现呢？

过账打印按钮的代码：

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)

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

关联表 意思是把 “销售记录”表和“销售单” 关联在一起吗？还是怎么样关联？

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

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