主题：新增按钮代码

编码控件的keydown事件，写代码

 

If e.keycode = keys.Enter Then

    '新增代码

    e.Sender.Text = ""

    e.cancel = true

    e.Sender.Select

End If

 把你的项目发上来，说明在哪个控件填入什么数据，怎么操作后，要得到什么效果。

 没看到上传的附件，请再上传一下。

 

使用ie浏览器访问论坛和上传附件。

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

点击浏览该文件:襄阳中康汽车配件有限公司.table

看10楼。

保存按钮

 

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

 我测试了一下，会新增行会填出数据进去的。填出的数据在表格的最后。

 

你可以把跟踪表空白的行删除，如

 

DataTables("表A").DeleteFor("第一列 is null and 第二列 is null")

 

贴出你写的代码。