form27.frm

办公自动化 vb+server2

     If grs.Fields(15) = 0 Then
        a16 = ""
        Else
        a16 = grs.Fields(15)
     End If
     If grs.Fields(16) = 0 Then
        a17 = ""
        Else
        a17 = grs.Fields(16)
     End If
     If grs.Fields(17) = 0 Then
        a18 = ""
        Else
        a18 = grs.Fields(17)
     End If
     If grs.Fields(18) = 0 Then
        a19 = ""
        Else
        a19 = grs.Fields(18)
     End If
     If grs.Fields(19) = 0 Then
        a20 = ""
        Else
        a20 = grs.Fields(19)
     End If
     If grs.Fields(20) = 0 Then
        a21 = ""
        Else
        a21 = grs.Fields(20)
     End If
     If grs.Fields(21) = 0 Then
        a22 = ""
        Else
        a22 = grs.Fields(21)
     End If
     If grs.Fields(22) = 0 Then
        a23 = ""
        Else
        a23 = grs.Fields(22)
     End If
 If grs.Fields(23) = 0 Then
        a24 = ""
        Else
        a24 = grs.Fields(23)
     End If
     If grs.Fields(24) = 0 Then
        a25 = ""
        Else
        a25 = grs.Fields(24)
     End If
     If grs.Fields(25) = 0 Then
        a26 = ""
        Else
        a26 = grs.Fields(25)
     End If
     If grs.Fields(26) = 0 Then
        a27 = ""
        Else
        a27 = grs.Fields(26)
     End If
     If grs.Fields(27) = 0 Then
        a28 = ""
        Else
        a28 = grs.Fields(27)
     End If
     If grs.Fields(28) = 0 Then
        a29 = ""
        Else
        a29 = grs.Fields(28)
     End If
     If grs.Fields(29) = 0 Then
        a30 = ""
        Else
        a30 = grs.Fields(29)
     End If
     If grs.Fields(30) = 0 Then
        a31 = ""
        Else
        a31 = grs.Fields(30)
     End If
     If grs.Fields(31) = 0 Then
        a32 = ""
        Else
        a32 = grs.Fields(31)
     End If
     If grs.Fields(32) = 0 Then
        a33 = ""
        Else
        a33 = grs.Fields(32)
     End If
     If grs.Fields(33) = 0 Then
        a34 = ""
        Else
        a34 = grs.Fields(33)
     End If
     If grs.Fields(34) = 0 Then
        a35 = ""
        Else
        a35 = grs.Fields(34)
     End If
     If grs.Fields(35) = 0 Then
        a36 = ""
        Else
        a36 = grs.Fields(35)
     End If
     If grs.Fields(36) = 0 Then
        a37 = ""
        Else
        a37 = grs.Fields(36)
     End If
     If grs.Fields(37) = 0 Then
        a38 = ""
        Else
        a38 = grs.Fields(37)
     End If
 If grs.Fields(38) = 0 Then
        a39 = ""
        Else
        a39 = grs.Fields(38)
     End If
     If grs.Fields(39) = 0 Then
        a40 = ""
        Else
        a40 = grs.Fields(39)
     End If
     If grs.Fields(40) = 0 Then
        a41 = ""
        Else
        a41 = grs.Fields(40)
     End If
     If grs.Fields(41) = 0 Then
        a42 = ""
        Else
        a42 = grs.Fields(41)
     End If
     If grs.Fields(42) = 0 Then
        a43 = ""
        Else
        a43 = grs.Fields(42)
     End If
     If grs.Fields(43) = 0 Then
        a44 = ""
        Else
        a44 = grs.Fields(43)
     End If
     If grs.Fields(44) = 0 Then
        a45 = ""
        Else
        a45 = grs.Fields(44)
     End If
     If grs.Fields(45) = 0 Then
        a46 = ""
        Else
        a46 = grs.Fields(45)
     End If
     If grs.Fields(46) = 0 Then
        a47 = ""
        Else
        a47 = grs.Fields(46)
     End If
     If grs.Fields(47) = 0 Then
        a48 = ""
        Else
        a48 = grs.Fields(47).Value
     End If
     If grs.Fields(48) = 0 Then
        a49 = ""
        Else
        a49 = grs.Fields(48)
     End If
     If grs.Fields(49) = 0 Then
        a50 = ""
        Else
        a50 = grs.Fields(49)
     End If
     If grs.Fields(50) = 0 Then
        a51 = ""
        Else
        a51 = grs.Fields(50)
     End If
     If grs.Fields(51) = 0 Then
        a52 = ""
        Else
        a52 = grs.Fields(51)
     End If
     If grs.Fields(52) = 0 Then
        a53 = ""
        Else
        a53 = grs.Fields(52)
     End If
 If grs.Fields(53) = 0 Then
        a54 = ""
        Else
        a54 = grs.Fields(53)
     End If
     If grs.Fields(54) = 0 Then
        a55 = ""
        Else
        a55 = grs.Fields(54)
     End If
     If grs.Fields(55) = 0 Then
        a56 = ""
        Else
        a56 = grs.Fields(55)
     End If
     If grs.Fields(56) = 0 Then
        a57 = ""
        Else
        a57 = grs.Fields(56)
     End If
     If grs.Fields(57) = 0 Then
        a58 = ""
        Else
        a58 = grs.Fields(57)
     End If
     If grs.Fields(58) = 0 Then
        a59 = ""
        Else
        a59 = grs.Fields(58)
     End If
     If grs.Fields(59) = 0 Then
        a60 = ""
        Else
        a60 = grs.Fields(59)
     End If
     If grs.Fields(60) = 0 Then
        a61 = ""
        Else
        a61 = grs.Fields(60)
     End If
     If grs.Fields(61) = 0 Then
        a62 = ""
        Else
        a62 = grs.Fields(61)
     End If
     If grs.Fields(62) = 0 Then
        a63 = ""
        Else
        a63 = grs.Fields(62)
     End If
 If grs.Fields(63) = 0 Then
        a64 = ""
        Else
        a64 = grs.Fields(63)
     End If
     If grs.Fields(64) = 0 Then
        a65 = ""
        Else
        a65 = grs.Fields(64)
     End If
     If grs.Fields(65) = 1 Then
        a66 = ""
        Else
        a66 = grs.Fields(65)
     End If
     If grs.Fields(66) = 1 Then
        a67 = ""
        Else
        a67 = grs.Fields(66)
     End If
     If grs.Fields(67) = 0 Then
        a68 = ""
        Else
        a68 = grs.Fields(67)
     End If
     If grs.Fields(68) = 0 Then
        a69 = ""
        Else
        a69 = grs.Fields(68)
     End If
     If grs.Fields(69) = 0 Then
        a70 = ""
        Else
        a70 = grs.Fields(69)
     End If
     If grs.Fields(70) = 0 Then
        a71 = ""
        Else
        a71 = grs.Fields(70)
     End If
     If grs.Fields(71) = 0 Then
        a72 = ""
        Else
        a72 = grs.Fields(71)
     End If
     If grs.Fields(72) = 0 Then
        a73 = ""
        Else
        a73 = grs.Fields(72)
     End If
 If grs.Fields(73) = 0 Then
        a74 = ""
        Else
        a74 = grs.Fields(73)
     End If
     If grs.Fields(74) = 0 Then
        a75 = ""
        Else
        a75 = grs.Fields(74)
     End If
     If grs.Fields(75) = 0 Then
        a76 = ""
        Else
        a76 = grs.Fields(75)
     End If
     If grs.Fields(76) = 0 Then
        a77 = ""
        Else
        a77 = grs.Fields(76)
     End If
     If grs.Fields(77) = 0 Then
        a78 = ""
        Else
        a78 = grs.Fields(77)
     End If
     If grs.Fields(78) = 0 Then
        a79 = ""
        Else
        a79 = grs.Fields(78)
     End If
     If grs.Fields(79) = 0 Then
        a80 = ""
        Else
        a80 = grs.Fields(79)
     End If
     If grs.Fields(80) = 0 Then
        a81 = ""
        Else
        a81 = grs.Fields(80)
     End If
     If grs.Fields(81) = 0 Then
        a82 = ""
        Else
        a82 = grs.Fields(81)
     End If
     If grs.Fields(82) = 0 Then
        a83 = ""
        Else
        a83 = grs.Fields(82)
     End If
 If grs.Fields(83) = 0 Then
        a84 = ""
        Else
        a84 = grs.Fields(83)
     End If
     If grs.Fields(84) = 0 Then
        a85 = ""
        Else
        a85 = grs.Fields(84)
     End If
     If grs.Fields(85) = 0 Then
        a86 = ""
        Else
        a86 = grs.Fields(85)
     End If
     If grs.Fields(86) = 0 Then
        a87 = ""
        Else
        a87 = grs.Fields(86)
     End If
     If grs.Fields(87) = 0 Then
        a88 = ""
        Else
        a88 = grs.Fields(87)
     End If
     If grs.Fields(88) = 0 Then
        a89 = ""
        Else
        a89 = grs.Fields(88)
     End If
     If grs.Fields(89) = 0 Then
        a90 = ""
        Else
        a90 = grs.Fields(89)
     End If
     If grs.Fields(90) = 0 Then
        a91 = ""
        Else
        a91 = grs.Fields(90)
     End If
     If grs.Fields(91) = 0 Then
        a92 = ""
        Else
        a92 = grs.Fields(91)
     End If
     If grs.Fields(92) = 0 Then
        a93 = ""
        Else
        a93 = grs.Fields(92)
     End If
 If grs.Fields(93) = 0 Then
        a94 = ""
        Else
        a94 = grs.Fields(93)
     End If
     If grs.Fields(94) = 0 Then
        a95 = ""
        Else
        a95 = grs.Fields(94)
     End If
     If grs.Fields(95) = 0 Then
        a96 = ""
        Else
        a96 = grs.Fields(95)
     End If
     If grs.Fields(96) = 0 Then
        a97 = ""
        Else
        a97 = grs.Fields(96)
     End If
     If grs.Fields(97) = 0 Then
        a98 = ""
        Else
        a98 = grs.Fields(97)
     End If
     If grs.Fields(98) = 0 Then
        a99 = ""
        Else
        a99 = grs.Fields(98)
     End If
     If grs.Fields(99) = 0 Then
        a100 = ""
        Else
        a100 = grs.Fields(99)
     End If
     If grs.Fields(100) = 0 Then
        a101 = ""
        Else
        a101 = grs.Fields(100)
     End If
     If grs.Fields(101) = 0 Then
        a102 = ""
        Else
        a102 = grs.Fields(101)
     End If
     If grs.Fields(102) = 0 Then
        a103 = ""
        Else
        a103 = grs.Fields(102)
     End If
 If grs.Fields(103) = 0 Then
        a104 = ""
        Else
        a104 = grs.Fields(103)
     End If
     If grs.Fields(104) = 0 Then
        a105 = ""