以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113067)
--  作者：SZCD111
--  发布时间：2018/1/8 15:35:00
--  代码
窗口beforeclose事件：
Dim str() As String={"进货退货表","进货明细表","进货表","库存表","库存明细表"}
For i As Integer= 0 To str.length-1
    If DataTables(i).haschanges Then
        DataTables(i).rejectchanges()
    End If
Next

没反应，哪里错了？
--  作者：有点甜
--  发布时间：2018/1/8 15:36:00
--  

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