主题：[求助]FOR .....NEXT

哪位老师帮我修改一下如下循环公式,第一行变动时总是提示错,点确认后下一行又出错,不能循环.


For Each sjmxdr As dataRow In datatables("收据明细").dataRows
    if sjmxdr isnot nothing then
        Select Case e.DataCol.Name
        Case "币制"
            Dim zsdrs As List(Of datarow) = DataTables("折算表").select("[币制] = '" & sjmxdr("币制") & "' and [折算币制] = '" & sjmxdr("收据币制") & "'")
            For Each zsdr As datarow In zsdrs
                if zsdr isnot nothing then
                    sjmxdr("折算符") = zsdr("折算符")
                    sjmxdr("兑换率") = zsdr("汇率")
                end if
            Next
        case "兑换率","收据币制"
            Dim s As String = sjmxdr("金额") & sjmxdr("折算符") & sjmxdr("兑换率")
            sjmxdr("收据金额") = eval(s)
        case "收据金额"
            dim sjdr as datarow = tables("收据").Current.DataRow
            If sjdr IsNot Nothing Then
                dataTables("收据").dataCols("折合币制").RaiseDataColChanged(sjdr)
            End If
    end select
end if
next