1. VisualBasic / Говнокод #4639

    −101

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    Dim lcIsCheck As Boolean = False

        Dim lcImages As DS_ExportFIO.sdImageRow = Me.DS_ExportFIO1.sdImage.Rows(0)

        If lcImages!Photo Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!PhotoIshodn Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!Sign Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!SignIshod Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        Return lcIsCheck

    хм... даже не знаю, как окоментить =)

    Запостил: HellMaster_HaiL, 15 Ноября 2010

    Комментарии (3) RSS

    Добавить комментарий