- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 新增按钮代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108939)
-- 发布时间：2017/11/1 10:53:00
--
编码控件的keydown事件，写代码
If e.keycode = keys.Enter Then
\'新增代码
e.Sender.Text = ""
e.cancel = true
e.Sender.Select
End If
-- 发布时间：2017/11/1 12:09:00
--
把你的项目发上来，说明在哪个控件填入什么数据，怎么操作后，要得到什么效果。
-- 发布时间：2017/11/1 12:27:00
--
没看到上传的附件，请再上传一下。
-- 发布时间：2017/11/1 15:12:00
--
以下是引用nuoyan88在2017/11/1 13:01:00的发言：
提示上传成功了呀？为什么看不到呢？我重新上传了三次都是一样的
提示上传成功了呀？为什么看不到呢？我重新上传了三次都是一样的
使用ie浏览器访问论坛和上传附件。
-- 发布时间：2017/11/1 15:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:襄阳中康汽车配件有限公司.table |
-- 发布时间：2017/11/1 17:21:00
--
看10楼。
-- 发布时间：2017/11/1 21:32:00
--
保存按钮
Dim f As New Filler
f.SourceTable = DataTables("临时表") \'指定数据来源
f.SourceCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,备注" \'指定数据来源列
f.DataTable = DataTables("工序跟踪表") \'指定数据接收表
f.ExcludeExistValue = True
f.DataCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,备注" \'指定数据接收列
f.Fill()
DataTables("临时表").DataRows.Clear
DataTables("临时表").addnew
-- 发布时间：2017/11/1 22:05:00
--
我测试了一下，会新增行会填出数据进去的。填出的数据在表格的最后。
-- 发布时间：2017/11/1 22:33:00
--
以下是引用nuoyan88在2017/11/1 22:15:00的发言：
老师，怎么会这样呢？能不能接着前面的内容保存呢？谢谢
老师，怎么会这样呢？能不能接着前面的内容保存呢？谢谢
你可以把跟踪表空白的行删除，如
DataTables("表A").DeleteFor("第一列 is null and 第二列 is null")
-- 发布时间：2017/11/1 22:54:00
--
以下是引用nuoyan88在2017/11/1 22:43:00的发言：
老师，我是在保存控件事件里删除了，无法保存了。谢谢
老师，我是在保存控件事件里删除了，无法保存了。谢谢
贴出你写的代码。