form33.frm

办公自动化 vb+server2

     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 = ""
        Else
        a105 = grs.Fields(104)
     End If
     If grs.Fields(105) = 0 Then
        a106 = ""
        Else
        a106 = grs.Fields(105)
     End If
     If grs.Fields(106) = 0 Then
        a107 = ""
        Else
        a107 = grs.Fields(106)
     End If
     If grs.Fields(107) = 0 Then
        a108 = ""
        Else
        a108 = grs.Fields(107)
     End If
     If grs.Fields(108) = 0 Then
        a109 = ""
        Else
        a109 = grs.Fields(108)
     End If
     If grs.Fields(109) = 0 Then
        a110 = ""
        Else
        a110 = grs.Fields(109)
     End If
     If grs.Fields(110) = 0 Then
        a111 = ""
        Else
        a111 = grs.Fields(110)
     End If
     If grs.Fields(111) = 0 Then
        a112 = ""
        Else
        a112 = grs.Fields(111)
     End If
     If grs.Fields(112) = 0 Then
        a113 = ""
        Else
        a113 = grs.Fields(112)
     End If
 If grs.Fields(113) = 0 Then
        a114 = ""
        Else
        a114 = grs.Fields(113)
     End If


 If grs.Fields(114) = 0 Then
        a115 = ""
        Else
        a115 = grs.Fields(114)
     End If
 If grs.Fields(115) = 0 Then
        a116 = ""
        Else
        a116 = grs.Fields(115)
     End If
 If grs.Fields(116) = 0 Then
        a117 = ""
        Else
        a117 = grs.Fields(116)
     End If

 If grs.Fields(117) = 0 Then
        a118 = ""
        Else
        a118 = grs.Fields(117)
     End If
 If grs.Fields(118) = 0 Then
        a119 = ""
        Else
        a119 = grs.Fields(118)
     End If

 If grs.Fields(119) = 0 Then
        a120 = ""
        Else
        a120 = grs.Fields(119)
     End If
 If grs.Fields(120) = 0 Then
        a121 = ""
        Else
        a121 = grs.Fields(120)
     End If

 If grs.Fields(121) = 0 Then
        a122 = ""
        Else
        a122 = grs.Fields(121)
     End If
 If grs.Fields(122) = 0 Then
        a123 = ""
        Else
        a123 = grs.Fields(122)
     End If
 If grs.Fields(123) = 1 Then
        a124 = ""
        Else
        a124 = grs.Fields(123)
     End If
 If grs.Fields(124) = 0 Then
        a125 = ""
        Else
        a125 = grs.Fields(124)
     End If
 If grs.Fields(125) = 0 Then
        a126 = ""
        Else
        a126 = grs.Fields(125)
     End If
 If grs.Fields(126) = 0 Then
        a127 = ""
        Else
        a127 = grs.Fields(126)
     End If
 If grs.Fields(127) = 0 Then
        a128 = ""
        Else
        a128 = grs.Fields(127)
     End If

 If grs.Fields(128) = 0 Then '共计为空，预收款也必为空
        a129 = ""
        Else
        a129 = grs.Fields(128)
     End If
 If grs.Fields(129) = 0 Then
        a130 = ""
        Else
        a130 = grs.Fields(129)
     End If
 If grs.Fields(130) = 0 Then
        a131 = ""
        Else
        a131 = grs.Fields(130)
     End If
     

      Form35.Text1.Text = a1
      Form35.Text2.Text = a2
      Form35.Text3.Text = a3
      Form35.Combo1.Text = a4
      Form35.Combo2.Text = a5
      Form35.Text6.Text = a6
      Form35.Text7.Text = a7
      Form35.Text8.Text = a8
      Form35.Text9.Text = a9
      Form35.Text10.Text = a10
      Form35.Combo3.Text = a11
      Form35.Combo4.Text = a12
      Form35.Text13.Text = a13
      Form35.Text14.Text = a14
      Form35.Text15.Text = a15
      Form35.Text16.Text = a16
      Form35.Text17.Text = a17
      Form35.Combo5.Text = a18
      Form35.Combo6.Text = a19
      Form35.Text20.Text = a20
      Form35.Text21.Text = a21
      Form35.Text22.Text = a22
      Form35.Text23.Text = a23
      Form35.Text24.Text = a24
      Form35.Combo7.Text = a25
      Form35.Combo8.Text = a26
      Form35.Text27.Text = a27
      Form35.Text28.Text = a28
      Form35.Text29.Text = a29
      Form35.Text30.Text = a30
      Form35.Text31.Text = a31
      Form35.Combo9.Text = a32
      Form35.Combo10.Text = a33
      Form35.Text34.Text = a34
      Form35.Text35.Text = a35
      Form35.Text36.Text = a36
      Form35.Text37.Text = a37
      Form35.Text38.Text = a38
      Form35.Combo11.Text = a39
      Form35.Combo12.Text = a40
      Form35.Text41.Text = a41
      Form35.Text42.Text = a42
      Form35.Text43.Text = a43
      Form35.Text44.Text = a44
      Form35.Text45.Text = a45
      Form35.Combo13.Text = a46
      Form35.Combo14.Text = a47
      Form35.Text48.Text = a48
      Form35.Text49.Text = a49
      Form35.Text50.Text = a50
      Form35.Text51.Text = a51
      Form35.Text52.Text = a52
      Form35.Text53.Text = a53
      Form35.Combo19.Text = a54
      Form35.Text55.Text = a55
      Form35.Text56.Text = a56
      Form35.Text57.Text = a57
      Form35.Combo20.Text = a58
      Form35.Text59.Text = a59
      Form35.Text60.Text = a60
      Form35.Text61.Text = a61
      Form35.Text62.Text = a62
      Form35.Text63.Text = a63
      Form35.Text64.Text = a64
      Form35.Text65.Text = a65
      Form35.Text66.Text = a66
      Form35.Text67.Text = a67
      Form35.Text68.Text = a68
      Form35.Text69.Text = a69
      Form35.Text70.Text = a70
      Form35.Combo15.Text = a71
      Form35.Combo16.Text = a72
      Form35.Text73.Text = a73
      Form35.Text74.Text = a74
      Form35.Text75.Text = a75
      Form35.Text76.Text = a76
      Form35.Text77.Text = a77
      Form35.Combo17.Text = a78
      Form35.Combo18.Text = a79
      Form35.Text80.Text = a80
      Form35.Text81.Text = a81
      Form35.Text82.Text = a82
      Form35.Text83.Text = a83
      Form35.Text84.Text = a84
      Form35.Combo21.Text = a85
      Form35.Text86.Text = a86
      Form35.Text87.Text = a87
      Form35.Text88.Text = a88
      Form35.Text89.Text = a89
      Form35.Combo22.Text = a90
      Form35.Text91.Text = a91
      Form35.Text92.Text = a92
      Form35.Text93.Text = a93
      Form35.Text94.Text = a94
      Form35.Combo23.Text = a95
      Form35.Text96.Text = a96
      Form35.Text97.Text = a97
      Form35.Text98.Text = a98
      Form35.Text99.Text = a99
      Form35.Combo24.Text = a100
      Form35.Text101.Text = a101
      Form35.Text102.Text = a102
      Form35.Text103.Text = a103
      Form35.Text104.Text = a104
      Form35.Combo25.Text = a105
      Form35.Text106.Text = a106
      Form35.Text107.Text = a107
      Form35.Text108.Text = a108
      Form35.Text109.Text = a109
      Form35.Combo26.Text = a110
      Form35.Text111.Text = a111
      Form35.Text112.Text = a112
      Form35.Text113.Text = a113
      Form35.Text114.Text = a114
      Form35.Text18.Text = a115
      Form35.Text4.Text = a116
      Form35.Text19.Text = a117
      Form35.Text5.Text = a118
      Form35.Text25.Text = a119
      Form35.Text11.Text = a120
      Form35.Text26.Text = a121
      Form35.Text12.Text = a70
      Form35.Text33.Text = a123
      Form35.Text32.Text = a124
      Form35.Text40.Text = a125
      Form35.Text39.Text = a126
      Form35.Text46.Text = a127
      Form35.Text47.Text = a128
      Form35.Text115.Text = a129
      Form35.Text58.Text = a130
      Form35.Text54.Text = a131
      
p1 = grs.Fields(52).Value
p2 = grs.Fields(128).Value
p3 = Val(p1) - Val(p2)
If p3 = "0" Then
   Form35.Text116.Text = ""
   Else
   Form35.Text116.Text = p3
   
End If
      
      
   End If
  grs.MoveNext
  Next
  grs.Close
End If
Next
Form35.Show vbModal
Exit Sub
End If
Next

End Sub