主题：[求助]批量新值替换旧值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新值替换旧值.foxdb

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim nms() As String = {"料号","值"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,0).Text
        Dim dr As DataRow = DataTables("表A").Find("料号 = '" & bh & "'")
        If dr Is Nothing Then '如果不存在同编号的订单
            dr =  DataTables("订单").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = Sheet(n,m).Value
        Next
    Next
   
End If

谢谢有点甜老师，我还是小白，不懂怎么实现，请有时间帮我做个例子，通过点击窗口按钮合并：如果合并表（新值）的料号和系统表A料号相同的，就直接替换原来表A料号对应的值，如果不一样的料号，则合并新增加入这些不一样的料号和对应值。万分感谢！我原来笨办法是：在系统做一个新表，列名一样的，新值合并到新表，再旧表加个数值02列，用料号关联，当数值02列表达式等于新表数值列有数据时，再不显示空值，进行把数值02列复制到数值列，不过这样太麻烦了。

谢谢有点甜老师，我还是小白，不懂怎么实现，请有时间帮我做个例子，通过点击窗口按钮合并：如果合并表（新值）的料号和系统表A料号相同的，就直接替换原来表A料号对应的值，如果不一样的料号，则合并新增加入这些不一样的料号和对应值。万分感谢！我原来笨办法是：在系统做一个新表，列名一样的，新值合并到新表，再旧表加个数值02列，用料号关联，当数值02列表达式等于新表数值列有数据时，再不显示空值，进行把数值02列复制到数值列，不过这样太麻烦了。

做一个按钮，执行2楼的代码，即可。

谢谢老师，可以了。建议官方集合一些点赞的表情包在论坛，方便广大学员使用...