- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于窗口录入的一些疑问，希望能够得到解决 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12321)
-- 发布时间：2011/8/29 16:19:00
-- 关于窗口录入的一些疑问，希望能够得到解决
图片如下
此主题相关图片如下：120.jpg
从 “销售”--“销售开单” 进入该页面
一、我希望每次打开该窗口以后 有50条空白行 供我 录入 数据。
二、当我录入完成以后 点击 “过账打印” 则保存数据到 “销售记录” 表中（空白行不保存）。然后重新打开该窗口，供录入下一单。
“销售记录”表 如下：
此主题相关图片如下：119.jpg
请问 该如何实现呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:琼富塑料管理系统_0829.zip |
-- 发布时间：2011/8/29 16:26:00
--
Tables("表名").AddNew(50)
-- 发布时间：2011/8/29 16:33:00
--
还有 呢
二、当我录入完成以后 点击 “过账打印” 则保存数据到 “销售记录” 表中（空白行不保存）。然后重新打开该窗口，供录入下一单。
-- 发布时间：2011/8/29 16:37:00
--
保存前删除空白行：
DataTables("xxx").DeleteFor("某列 Is Null")
DataTables("xxx").Save()
-- 发布时间：2011/8/29 16:41:00
--
你看我 录入 的界面 只有一个 日期，单据号，客户名称 经手人。但是有多条 商品名称 规格 数量 价格 等记录。
销售记录 表格 则 每一行 都完整记录 日期 单据号 客户名称 经手人 商品名称 规格 数量 单价等。
-- 发布时间：2011/8/29 16:49:00
--
给你一个删除所有空白行的通用代码：
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()
-- 发布时间：2011/8/29 17:02:00
--
你都绑定到表了，直接输入、保存就可以呀。
-- 发布时间：2011/8/29 17:13:00
--
绑定到表 应该是 不对的。
比如我再录入 第二张单 呢 怎么录入呢？
-- 发布时间：2011/8/29 18:03:00
--
问题有点奇怪，不好回答，感觉你应该应关联表，就好处理多了。
-- 发布时间：2011/8/29 18:40:00
--
绑定到表 应该是 不对的。
比如我再录入 第二张单 呢 怎么录入呢？
你的窗口本来就是绑定到销售记录表的，对不对你说了算啊。
再录入第二张单是什么意思呢，是不是一条记录？ 是的话，下移一行或增加行继续录入···