主题：代码改写

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

Click事件中，实现同样的功能，代码怎么改呢？先谢谢大家了。

 

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

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

 

谢谢老师，我有点笨啊，英语不行写代码能力差。谢谢。

还是不行，打印完了也没有写入。

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

 

 

 

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

 

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

老师您太厉害了，完全搞定，谢谢。