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("数据更新完成", "变更信息")
加好友 
发短信
Post By：2017/4/2 19:16:00 [显示全部帖子]
