主题：求助，帮忙看下这段代码有什么问题

For Each mr As DataRow In DataTables("订单表").DataRows
        Dim vr As DataRow = DataTables("订单主表").Find("订单号 = '" & mr("订单号") & "'")
        If mr("未交数")> 0 Then
            flag = False
          msgbox(mr("未交数"))
            msgbox(flag)
            Exit For
        End If
        vr("结案") = Flag

Next

用msgbox看到的值是正确显示的，可是

vr("结案") 不能正确的和Flag的值匹配

附例子，求指点

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

点击浏览该文件:库存演算.foxdb

不是测试版的，打不开。

你一到flag = false 就跳到Next后面去了，与vr不相干啦。