以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98624)
--  作者：yifan3429
--  发布时间：2017/4/2 18:18:00
--  自动更新
Select Case e.DataCol.Name
    Case "施工项目","施工说明","单位","单价_辅料","单价_主材","单价_人工"
        Dim Filter As String = "[施工编号] = \'" & e.DataRow("施工编号") & "\'"
        DataTables("项目明细").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
                MessageBox.Show("数据更新完成", "变更信息")
End Select

做成按钮的代码怎么编写
请教
--  作者：有点色
--  发布时间：2017/4/2 19:16:00
--  
Dim dt As DataTable = DataTables("表A")
Dim cs() As String = {"施工项目","施工说明","单位","单价_辅料","单价_主材","单价_人工"}
For Each dr As DataRow In dt.DataRows
    Dim Filter As String = "[施工编号] = \'" & dr("施工编号") & "\'"
    For Each c As String In cs
        DataTables("项目明细").ReplaceFor(c, dr(c), Filter)
    Next
Next
MessageBox.Show("数据更新完成", "变更信息")