主题：关于窗口录入的一些疑问，希望能够得到解决

图片如下

 

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

 

从 “销售”--“销售开单” 进入该页面

 

一、我希望每次打开该窗口以后 有50条空白行 供我 录入 数据。

二、当我录入完成以后 点击 “过账打印” 则保存数据到 “销售记录” 表中（空白行不保存）。然后重新打开该窗口，供录入下一单。

 

“销售记录”表 如下：

 

 

 

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

 

 

请问 该如何实现呢？

 

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

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

Tables("表名").AddNew(50)

还有 呢

 

 

二、当我录入完成以后 点击 “过账打印” 则保存数据到 “销售记录” 表中（空白行不保存）。然后重新打开该窗口，供录入下一单。

保存前删除空白行：
 
DataTables("xxx").DeleteFor("某列 Is Null")
DataTables("xxx").Save()

你看我 录入 的界面 只有一个 日期，单据号，客户名称 经手人。但是有多条 商品名称 规格 数量 价格 等记录。

销售记录 表格 则 每一行 都完整记录 日期 单据号 客户名称 经手人  商品名称 规格 数量 单价等。

给你一个删除所有空白行的通用代码：

 

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)
dt.Save()

你都绑定到表了，直接输入、保存就可以呀。

绑定到表 应该是 不对的。

比如我再录入 第二张单 呢 怎么录入呢？

问题有点奇怪，不好回答，感觉你应该应关联表，就好处理多了。

你的窗口本来就是绑定到销售记录表的，对不对你说了算啊。

再录入第二张单是什么意思呢，是不是一条记录？ 是的话，下移一行或增加行继续录入···