form17.frm

办公自动化 vb+server2

   If Text51.Text <> "" Then
      a30 = Text51.Text
   End If

End If





  If Combo15.Text = "" Then
   d15 = "0"
  End If
  If Combo15.Text <> "" Then
   d15 = Combo15.Text
  End If
   If Combo16.Text = "" Then
   d16 = "0"
  End If
  If Combo16.Text <> "" Then
   d16 = Combo16.Text
  End If

If Text73.Text <> "" Or Text74.Text <> "" Or Text75.Text <> "" Or Text76.Text <> "" Then
   If Text73.Text = "" Then
      a33 = 0
   End If
   If Text73.Text <> "" Then
      a33 = Text73.Text
   End If
   If Text74.Text = "" Then
      a34 = 0
   End If
   If Text74.Text <> "" Then
      a34 = Text74.Text
   End If
   If Text75.Text = "" Then
      a35 = 1
   End If
   If Text75.Text <> "" Then
      a35 = Text75.Text
   End If
   If Text76.Text = "" Then
      a36 = 1
   End If
   If Text76.Text <> "" Then
      a36 = Text76.Text
   End If


End If

   If Text77.Text = "" Then
      b21 = 0
   End If
   If Text77.Text <> "" Then
      b21 = Text77.Text
   End If



  If Combo17.Text = "" Then
   d17 = "0"
  End If
  If Combo17.Text <> "" Then
   d17 = Combo17.Text
  End If
   If Combo18.Text = "" Then
   d18 = "0"
  End If
  If Combo18.Text <> "" Then
   d18 = Combo18.Text
  End If

If Text80.Text <> "" Or Text81.Text <> "" Or Text82.Text <> "" Or Text83.Text <> "" Then
   If Text80.Text = "" Then
      a37 = 0
   End If
   If Text80.Text <> "" Then
      a37 = Text80.Text
   End If
   If Text81.Text = "" Then
      a38 = 0
   End If
   If Text81.Text <> "" Then
      a38 = Text81.Text
   End If
   If Text82.Text = "" Then
      a39 = 0
   End If
   If Text82.Text <> "" Then
      a39 = Text82.Text
   End If
   If Text83.Text = "" Then
      a40 = 0
   End If
   If Text83.Text <> "" Then
      a40 = Text83.Text
   End If


End If
   If Text84.Text = "" Then
      b22 = 0
   End If
   If Text84.Text <> "" Then
      b22 = Text84.Text
   End If


   If Text52.Text = "" Then
      b7 = 0
   End If
   If Text52.Text <> "" Then
      b7 = Text52.Text
   End If
   If Text53.Text = "" Then
      b18 = 0
   End If
   If Text53.Text <> "" Then
      b18 = Text53.Text
   End If
   
   If Text115.Text = "" Then '预收款
      b19 = 0
   Else
      b19 = Text115.Text
   End If
   
   
   
   
   
   If Combo19.Text = "" Then
      c3 = 0
   End If
   If Combo19.Text <> "" Then
      c3 = Combo19.Text
   End If
   If Text55.Text = "" Then
      b8 = 0
   End If
   If Text55.Text <> "" Then
      b8 = Text55.Text
   End If
   If Text56.Text = "" Then
      b9 = 0
   End If
   If Text56.Text <> "" Then
      b9 = Text56.Text
   End If
   If Text57.Text = "" Then
      b10 = 0
   End If
   If Text57.Text <> "" Then
      b10 = Text57.Text
   End If
   If Combo20.Text = "" Then
      c4 = 0
   End If
   If Combo20.Text <> "" Then
      c4 = Combo20.Text
   End If
   If Text59.Text = "" Then
      b11 = 0
   End If
   If Text59.Text <> "" Then
      b11 = Text59.Text
   End If
   If Text60.Text = "" Then
      b12 = 0
   End If
   If Text60.Text <> "" Then
      b12 = Text60.Text
   End If
   If Text61.Text = "" Then
      b13 = 0
   End If
   If Text61.Text <> "" Then
      b13 = Text61.Text
   End If


   If Combo21.Text = "" Then
      c8 = 0
   End If
   If Combo21.Text <> "" Then
      c8 = Combo21.Text
   End If
   If Text87.Text = "" Then
      b23 = 0
   End If
   If Text87.Text <> "" Then
      b23 = Text87.Text
   End If
   If Text88.Text = "" Then
      b24 = 0
   End If
   If Text88.Text <> "" Then
      b24 = Text88.Text
   End If
   If Text89.Text = "" Then
      b25 = 0
   End If
   If Text89.Text <> "" Then
      b25 = Text89.Text
   End If


   If Combo22.Text = "" Then
      c10 = 0
   End If
   If Combo22.Text <> "" Then
      c10 = Combo22.Text
   End If
   If Text92.Text = "" Then
      b26 = 0
   End If
   If Text92.Text <> "" Then
      b26 = Text92.Text
   End If
   If Text93.Text = "" Then
      b27 = 0
   End If
   If Text93.Text <> "" Then
      b27 = Text93.Text
   End If
   If Text94.Text = "" Then
      b28 = 0
   End If
   If Text94.Text <> "" Then
      b28 = Text94.Text
   End If

   If Combo23.Text = "" Then
      c12 = 0
   End If
   If Combo23.Text <> "" Then
      c12 = Combo23.Text
   End If
   If Text97.Text = "" Then
      b29 = 0
   End If
   If Text97.Text <> "" Then
      b29 = Text97.Text
   End If
   If Text98.Text = "" Then
      b30 = 0
   End If
   If Text98.Text <> "" Then
      b30 = Text98.Text
   End If
   If Text99.Text = "" Then
      b31 = 0
   End If
   If Text99.Text <> "" Then
      b31 = Text99.Text
   End If

   If Combo24.Text = "" Then
      c14 = 0
   End If
   If Combo24.Text <> "" Then
      c14 = Combo24.Text
   End If
   If Text102.Text = "" Then
      b32 = 0
   End If
   If Text102.Text <> "" Then
      b32 = Text102.Text
   End If
   If Text103.Text = "" Then
      b33 = 0
   End If
   If Text103.Text <> "" Then
      b33 = Text103.Text
   End If
   If Text104.Text = "" Then
      b34 = 0
   End If
   If Text104.Text <> "" Then
      b34 = Text104.Text
   End If

   If Combo25.Text = "" Then
      c16 = 0
   End If
   If Combo25.Text <> "" Then
      c16 = Combo25.Text
   End If
   If Text107.Text = "" Then
      b35 = 0
   End If
   If Text107.Text <> "" Then
      b35 = Text107.Text
   End If
   If Text108.Text = "" Then
      b36 = 0
   End If
   If Text108.Text <> "" Then
      b36 = Text108.Text
   End If
   If Text109.Text = "" Then
      b37 = 0
   End If
   If Text109.Text <> "" Then
      b37 = Text109.Text
   End If
   If Combo26.Text = "" Then
      c18 = 0
   End If
   If Combo26.Text <> "" Then
      c18 = Combo26.Text
   End If
   If Text112.Text = "" Then
      b38 = 0
   End If
   If Text112.Text <> "" Then
      b38 = Text112.Text
   End If
   If Text113.Text = "" Then
      b39 = 0
   End If
   If Text113.Text <> "" Then
      b39 = Text113.Text
   End If
   If Text114.Text = "" Then
      b40 = 0
   End If
   If Text114.Text <> "" Then
      b40 = Text114.Text
   End If






   If Text62.Text = "" Then
      b14 = 0
   End If
   If Text62.Text <> "" Then
      b14 = Text62.Text
   End If
   If Text63.Text = "" Then
      b15 = 0
   End If
   If Text63.Text <> "" Then
      b15 = Text63.Text
   End If
   If Text64.Text = "" Then
      b16 = 0
   End If
   If Text64.Text <> "" Then
      b16 = Text64.Text
   End If
   If Text65.Text = "" Then
      b17 = 0
   End If
   If Text65.Text <> "" Then
      b17 = Text65.Text
   End If
   If Text66.Text = "" Then
      a31 = 1
   End If
    If Text66.Text <> "" Then
      a31 = Text66.Text
   End If
   If Text67.Text = "" Then
      a32 = 1
   End If
   If Text67.Text <> "" Then
      a32 = Text67.Text
   End If
   If Text68.Text = "" Then
      c5 = "0"
   End If
   If Text68.Text <> "" Then
      c5 = Text68.Text
   End If
   If Text69.Text = "" Then
      c6 = "0"
   End If
   If Text69.Text <> "" Then
      c6 = Text69.Text
   End If
   If Text86.Text = "" Then
      c9 = "0"
   End If
   If Text86.Text <> "" Then
      c9 = Text86.Text
   End If
   If Text91.Text = "" Then
      c11 = "0"
   End If
   If Text91.Text <> "" Then
      c11 = Text91.Text
   End If
   If Text96.Text = "" Then
      c13 = "0"
   End If
   If Text96.Text <> "" Then
      c13 = Text96.Text
   End If
   If Text101.Text = "" Then
      c15 = "0"
   End If
   If Text101.Text <> "" Then
      c15 = Text101.Text
   End If
   If Text106.Text = "" Then
      c17 = "0"
   End If
   If Text106.Text <> "" Then
      c17 = Text106.Text
   End If
   If Text111.Text = "" Then
      c19 = "0"
   End If
   If Text111.Text <> "" Then
      c19 = Text111.Text
   End If




   If Text70.Text = "" Then
     c7 = 0
   End If
   If Text70.Text <> "" Then
     c7 = Text70.Text
   End If


     .Fields(0) = c1
     .Fields(1) = c2
     .Fields(2) = e1
     .Fields(3) = d1
     .Fields(4) = d2
     .Fields(5) = a1
     .Fields(6) = a2
     .Fields(7) = a3
     .Fields(8) = a4
     .Fields(9) = b1
     .Fields(10) = d3
     .Fields(11) = d4
     .Fields(12) = a5
     .Fields(13) = a6
     .Fields(14) = a7
     .Fields(15) = a8
     .Fields(16) = b2
     .Fields(17) = d5
     .Fields(18) = d6
     .Fields(19) = a9
     .Fields(20) = a10
     .Fields(21) = a11
     .Fields(22) = a12
     .Fields(23) = b3
     .Fields(24) = d7
     .Fields(25) = d8
     .Fields(26) = a13
     .Fields(27) = a14
     .Fields(28) = a15
     .Fields(29) = a16
     .Fields(30) = b4
     .Fields(31) = d9
     .Fields(32) = d10
     .Fields(33) = a17
     .Fields(34) = a18
     .Fields(35) = a19
     .Fields(36) = a20
     .Fields(37) = b5
     .Fields(38) = d11
     .Fields(39) = d12
     .Fields(40) = a22
     .Fields(41) = a23
     .Fields(42) = a24
     .Fields(43) = a25
     .Fields(44) = b6
     .Fields(45) = d13
     .Fields(46) = d14
     .Fields(47) = a27
     .Fields(48) = a28
     .Fields(49) = a29
     .Fields(50) = a30
     .Fields(51) = b7
     .Fields(52) = b18
     .Fields(53) = c3
     .Fields(54) = b8
     .Fields(55) = b9
     .Fields(56) = b10
     .Fields(57) = c4
     .Fields(58) = b11