各位老师好，下面的代码原来写在绑定表“打印审批表_table1”的DataColChanged事件中，现在想把它写到窗口“打印”按钮的

Select Case e.DataCol.Name 
    Case "采购申报表打印","采购表名称"
       Dim Filter As String = "[编号] = \'" & e.DataRow("编号") & "\'"
        Dim nm As String = e.DataCol.Name
       DataTables("物品申报").ReplaceFor(nm, e.DataRow(nm), Filter)
End Select

1、不需要额外写代码修改的啊

2、你的sqlTable直接save保存之后，就把数据保存到了数据库【物品申报】了的。你只要刷新同步一下表格就可以看到最新的结果。

老师，我主要是想打印以后再写入主表，有时可能选了要打印，但并没有打印，这样的话仍然写入了主表。

那就直接写 Tables("打印审批表_table1").Save 就行啊

还是请老师给改改这段代码吧，让它在打印按钮的事件中能运行。谢谢老师了。

Tables("打印审批表_table1").Save

DataTables("物品申报").Load

老师，采购申报表打印这一列可以了。但“采购表名称”列因为直接把值赋给了VARS变量“AAAAA”了，并没有写入绑定表的列内，现在想写一个判断语句，如果这一行的“采购申报表打印”列勾选了，则将“Txtbox1”值写入“打印审批表_table1”的“采购表名称”列，下面的代码行吗？

If e.Col.Name = "采购申报表打印" = \'true\'  then
    DataTables("打印审批表_Table1").ReplaceFor("采购表名称",e.form.controls("TextBox1").text)  (要是把VRRS变量AAAAA的值赋给采购表名称怎么写)
End If