主题：代码

Dim str() As String={"进货退货表","进货明细表","进货表","库存表","库存明细表"}
For each s as string in str
    If DataTables(s).haschanges Then
        DataTables(s).rejectchanges()
    End If
Next