主题：代码改写

各位老师好，下面的代码原来写在绑定表“打印审批表_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

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