版主、各位先生：你们好!
我用VB做的程序，遇到一个问题就是，在修改窗体内表格数据时，不能修改和保存总提示我“定义了过多字段”。如果将access数据库内，该表格的字段减少到80个左右时，就能修改保存，100个字段以上就出现如上“定义了过多字段”的错误提示。可是我现在的100多个字段都是有用的，不能减少呀！真是烦人，如何解决哪？有没有其他简便方法哪？请诸位帮忙，我衷心地感谢您们了！谢了！我的编码如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub cmdmodify_Click()
On Error GoTo modifyerror
Text1.Enabled = False
If Trim(Text1.Text) = "" Then
MsgBox 编号不能为空", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
rs_zhugang.MoveFirst
Dim i As Integer
For i = 0 To rs_zhugang.RecordCount - 1
If Trim(rs_zhugang.Fields(0)) = Trim(Text1.Text) Then '
rs_zhugang.Fields(1) = Combo1.Text
rs_zhugang.Fields(2) = DTPicker1.value
rs_zhugang.Fields(3) = Combo2.Text
If Trim(Text2.Text) = "" Then
rs_zhugang.Fields(4) = Null
Else
rs_zhugang.Fields(4) = Text2.Text
End If

If Trim(Text3.Text) = "" Then
rs_zhugang.Fields(5) = Null
Else
rs_zhugang.Fields(5) = Text3.Text
End If

If Trim(Text4.Text) = "" Then
rs_zhugang.Fields(6) = Null
Else
rs_zhugang.Fields(6) = Text4.Text
End If


If Trim(Text5.Text) = "" Then
rs_zhugang.Fields(7) = Null
Else
rs_zhugang.Fields(7) = Text5.Text
End If

If Trim(Text6.Text) = "" Then
rs_zhugang.Fields(8) = Null
Else
rs_zhugang.Fields(8) = Text6.Text
End If


If Trim(Text7.Text) = "" Then
rs_zhugang.Fields(9) = Null
Else
rs_zhugang.Fields(9) = Text7.Text
End If


If Trim(Text8.Text) = "" Then
rs_zhugang.Fields(10) = Null
Else
rs_zhugang.Fields(10) = Text8.Text
End If


If Trim(Text9.Text) = "" Then
rs_zhugang.Fields(11) = Null
Else
rs_zhugang.Fields(11) = Text9.Text
End If

If Trim(Text10.Text) = "" Then
rs_zhugang.Fields(12) = Null
Else
rs_zhugang.Fields(12) = Text10.Text
End If

If Trim(Text11.Text) = "" Then
rs_zhugang.Fields(13) = Null
Else
rs_zhugang.Fields(13) = Text11.Text
End If

If Trim(Text12.Text) = "" Then
rs_zhugang.Fields(14) = Null
Else
rs_zhugang.Fields(14) = Text12.Text
End If

If Trim(Text13.Text) = "" Then '
rs_zhugang.Fields(15) = Null
Else
rs_zhugang.Fields(15) = Text13.Text
End If

If Trim(Text14.Text) = "" Then
rs_zhugang.Fields(16) = Null
Else
rs_zhugang.Fields(16) = Text14.Text
End If

If Trim(Text15.Text) = "" Then
rs_zhugang.Fields(17) = Null
Else
rs_zhugang.Fields(17) = Text15.Text
End If


If Trim(Text16.Text) = "" Then
rs_zhugang.Fields(18) = Null
Else
rs_zhugang.Fields(18) = Text16.Text
End If

If Trim(Text17.Text) = "" Then
rs_zhugang.Fields(19) = Null
Else
rs_zhugang.Fields(19) = Text17.Text
End If

If Trim(Text18.Text) = "" Then
rs_zhugang.Fields(20) = Null
Else
rs_zhugang.Fields(20) = Text18.Text
End If


If Trim(Text19.Text) = "" Then
rs_zhugang.Fields(21) = Null
Else
rs_zhugang.Fields(21) = Text19.Text
End If

If Trim(Text20.Text) = "" Then
rs_zhugang.Fields(22) = Null
Else
rs_zhugang.Fields(22) = Text20.Text
End If

If Trim(Text21.Text) = "" Then
rs_zhugang.Fields(23) = Null
Else
rs_zhugang.Fields(23) = Text21.Text
End If

If Trim(Text22.Text) = "" Then
rs_zhugang.Fields(24) = Null
Else
rs_zhugang.Fields(24) = Text22.Text
End If

If Trim(Text23.Text) = "" Then
rs_zhugang.Fields(25) = Null
Else
rs_zhugang.Fields(25) = Text23.Text
End If

If Trim(Text24.Text) = "" Then
rs_zhugang.Fields(26) = Null
Else
rs_zhugang.Fields(26) = Text24.Text
End If

If Trim(Text25.Text) = "" Then
rs_zhugang.Fields(27) = Null
Else
rs_zhugang.Fields(27) = Text25.Text
End If

If Trim(Text26.Text) = "" Then
rs_zhugang.Fields(28) = Null
Else
rs_zhugang.Fields(28) = Text26.Text
End If

If Trim(Text27.Text) = "" Then
rs_zhugang.Fields(29) = Null
Else
rs_zhugang.Fields(29) = Text27.Text
End If

If Trim(Text28.Text) = "" Then
rs_zhugang.Fields(30) = Null
Else
rs_zhugang.Fields(30) = Text28.Text
End If

If Trim(Text29.Text) = "" Then
rs_zhugang.Fields(31) = Null
Else
rs_zhugang.Fields(31) = Text29.Text
End If

If Trim(Text30.Text) = "" Then
rs_zhugang.Fields(32) = Null
Else
rs_zhugang.Fields(32) = Text30.Text
End If

If Trim(Text31.Text) = "" Then
rs_zhugang.Fields(33) = Null
Else
rs_zhugang.Fields(33) = Text31.Text
End If

If Trim(Text32.Text) = "" Then
rs_zhugang.Fields(34) = Null
Else
rs_zhugang.Fields(34) = Text32.Text
End If

If Trim(Text33.Text) = "" Then
rs_zhugang.Fields(35) = Null
Else
rs_zhugang.Fields(35) = Text33.Text
End If

If Trim(Text34.Text) = "" Then
rs_zhugang.Fields(36) = Null
Else
rs_zhugang.Fields(36) = Text34.Text
End If

If Trim(Text35.Text) = "" Then
rs_zhugang.Fields(37) = Null
Else
rs_zhugang.Fields(37) = Text35.Text
End If

If Trim(Text36.Text) = "" Then
rs_zhugang.Fields(38) = Null
Else
rs_zhugang.Fields(38) = Text36.Text
End If

If Trim(Text37.Text) = "" Then
rs_zhugang.Fields(39) = Null
Else
rs_zhugang.Fields(39) = Text37.Text
End If

If Trim(Text38.Text) = "" Then
rs_zhugang.Fields(40) = Null
Else
rs_zhugang.Fields(40) = Text38.Text
End If

If Trim(Text39.Text) = "" Then
rs_zhugang.Fields(41) = Null
Else
rs_zhugang.Fields(41) = Text39.Text
End If

If Trim(Text40.Text) = "" Then
rs_zhugang.Fields(42) = Null
Else
rs_zhugang.Fields(42) = Text40.Text
End If

If Trim(Text41.Text) = "" Then
rs_zhugang.Fields(43) = Null
Else
rs_zhugang.Fields(43) = Text41.Text
End If

If Trim(Text42.Text) = "" Then
rs_zhugang.Fields(44) = Null
Else
rs_zhugang.Fields(44) = Text42.Text
End If

If Trim(Text43.Text) = "" Then
rs_zhugang.Fields(45) = Null
Else
rs_zhugang.Fields(45) = Text43.Text
End If

If Trim(Text44.Text) = "" Then
rs_zhugang.Fields(46) = Null
Else
rs_zhugang.Fields(46) = Text44.Text
End If

If Trim(Text45.Text) = "" Then
rs_zhugang.Fields(47) = Null
Else
rs_zhugang.Fields(47) = Text45.Text
End If

If Trim(Text46.Text) = "" Then
rs_zhugang.Fields(48) = Null
Else
rs_zhugang.Fields(48) = Text46.Text
End If

If Trim(Text47.Text) = "" Then
rs_zhugang.Fields(49) = Null
Else
rs_zhugang.Fields(49) = Text47.Text
End If

If Trim(Text48.Text) = "" Then
rs_zhugang.Fields(50) = Null
Else
rs_zhugang.Fields(50) = Text48.Text
End If

If Trim(Text49.Text) = "" Then
rs_zhugang.Fields(51) = Null
Else
rs_zhugang.Fields(51) = Text49.Text
End If

If Trim(Text50.Text) = "" Then
rs_zhugang.Fields(52) = Null
Else
rs_zhugang.Fields(52) = Text50.Text
End If

If Trim(Text141.Text) = "" Then
rs_zhugang.Fields(53) = Null
Else
rs_zhugang.Fields(53) = Text141.Text
End If

If Trim(Text142.Text) = "" Then
rs_zhugang.Fields(54) = Null
Else
rs_zhugang.Fields(54) = Text142.Text
End If

If Trim(Text143.Text) = "" Then
rs_zhugang.Fields(55) = Null
Else
rs_zhugang.Fields(55) = Text143.Text
End If

If Trim(Text144.Text) = "" Then
rs_zhugang.Fields(56) = Null
Else
rs_zhugang.Fields(56) = Text144.Text
End If

If Trim(Text145.Text) = "" Then
rs_zhugang.Fields(57) = Null
Else
rs_zhugang.Fields(57) = Text145.Text
End If

If Trim(Text146.Text) = "" Then
rs_zhugang.Fields(58) = Null
Else
rs_zhugang.Fields(58) = Text146.Text
End If

If Trim(Text147.Text) = "" Then '
rs_zhugang.Fields(59) = Null
Else
rs_zhugang.Fields(59) = Text147.Text
End If

If Trim(Text148.Text) = "" Then
rs_zhugang.Fields(60) = Null
Else
rs_zhugang.Fields(60) = Text148.Text
End If

If Trim(Text149.Text) = "" Then
rs_zhugang.Fields(61) = Null
Else
rs_zhugang.Fields(61) = Text149.Text
End If

If Trim(Text150.Text) = "" Then
rs_zhugang.Fields(62) = Null
Else
rs_zhugang.Fields(62) = Text150.Text
End If

If Trim(Text151.Text) = "" Then
rs_zhugang.Fields(63) = Null
Else
rs_zhugang.Fields(63) = Text151.Text
End If

If Trim(Text152.Text) = "" Then '
rs_zhugang.Fields(64) = Null
Else
rs_zhugang.Fields(64) = Text152.Text
End If

If Trim(Text156.Text) = "" Then
rs_zhugang.Fields(65) = Null
Else
rs_zhugang.Fields(65) = Text156.Text
End If

If Trim(Text157.Text) = "" Then
rs_zhugang.Fields(66) = Null
Else
rs_zhugang.Fields(66) = Text157.Text
End If
If Trim(Text158.Text) = "" Then
rs_zhugang.Fields(67) = Null
Else
rs_zhugang.Fields(67) = Text158.Text
End If



If Trim(Text51.Text) = "" Then
rs_zhugang.Fields(68) = Null
Else
rs_zhugang.Fields(68) = Text51.Text
End If

If Trim(Text52.Text) = "" Then
rs_zhugang.Fields(69) = Null
Else
rs_zhugang.Fields(69) = Text52.Text
End If

If Trim(Text53.Text) = "" Then
rs_zhugang.Fields(70) = Null
Else
rs_zhugang.Fields(70) = Text53.Text
End If


If Trim(Text54.Text) = "" Then
rs_zhugang.Fields(71) = Null
Else
rs_zhugang.Fields(71) = Text54.Text
End If

If Trim(Text55.Text) = "" Then
rs_zhugang.Fields(72) = Null
Else
rs_zhugang.Fields(72) = Text55.Text
End If


If Trim(Text56.Text) = "" Then
rs_zhugang.Fields(73) = Null
Else
rs_zhugang.Fields(73) = Text56.Text
End If


If Trim(Text57.Text) = "" Then
rs_zhugang.Fields(74) = Null
Else
rs_zhugang.Fields(74) = Text57.Text
End If

If Trim(Text58.Text) = "" Then
rs_zhugang.Fields(75) = Null
Else
rs_zhugang.Fields(75) = Text58.Text
End If

If Trim(Text59.Text) = "" Then
rs_zhugang.Fields(76) = Null
Else
rs_zhugang.Fields(76) = Text59.Text
End If

If Trim(Text60.Text) = "" Then
rs_zhugang.Fields(77) = Null
Else
rs_zhugang.Fields(77) = Text60.Text
End If

If Trim(Text61.Text) = "" Then
rs_zhugang.Fields(78) = Null
Else
rs_zhugang.Fields(78) = Text61.Text
End If

If Trim(Text62.Text) = "" Then
rs_zhugang.Fields(79) = Null
Else
rs_zhugang.Fields(79) = Text62.Text
End If

If Trim(Text63.Text) = "" Then
rs_zhugang.Fields(80) = Null
Else
rs_zhugang.Fields(80) = Text63.Text
End If


If Trim(Text64.Text) = "" Then
rs_zhugang.Fields(81) = Null
Else
rs_zhugang.Fields(81) = Text64.Text
End If

If Trim(Text65.Text) = "" Then
rs_zhugang.Fields(82) = Null
Else
rs_zhugang.Fields(82) = Text65.Text
End If

If Trim(Text66.Text) = "" Then
rs_zhugang.Fields(83) = Null
Else
rs_zhugang.Fields(83) = Text66.Text
End If


If Trim(Text67.Text) = "" Then
rs_zhugang.Fields(84) = Null
Else
rs_zhugang.Fields(84) = Text67.Text
End If

If Trim(Text68.Text) = "" Then
rs_zhugang.Fields(85) = Null
Else
rs_zhugang.Fields(85) = Text68.Text
End If

If Trim(Text69.Text) = "" Then
rs_zhugang.Fields(86) = Null
Else
rs_zhugang.Fields(86) = Text69.Text
End If

If Trim(Text70.Text) = "" Then '±¸ ×¢
rs_zhugang.Fields(87) = Null
Else
rs_zhugang.Fields(87) = Text70.Text
End If

If Trim(Text71.Text) = "" Then
rs_zhugang.Fields(88) = Null
Else
rs_zhugang.Fields(88) = Text71.Text
End If

If Trim(Text72.Text) = "" Then
rs_zhugang.Fields(89) = Null
Else
rs_zhugang.Fields(89) = Text72.Text
End If

If Trim(Text73.Text) = "" Then '
rs_zhugang.Fields(90) = Null
Else
rs_zhugang.Fields(90) = Text73.Text
End If

If Trim(Text74.Text) = "" Then
rs_zhugang.Fields(91) = Null
Else
rs_zhugang.Fields(91) = Text74.Text
End If

If Trim(Text75.Text) = "" Then '
rs_zhugang.Fields(92) = Null
Else
rs_zhugang.Fields(92) = Text75.Text
End If

If Trim(Text76.Text) = "" Then '
rs_zhugang.Fields(93) = Null
Else
rs_zhugang.Fields(93) = Text76.Text
End If

If Trim(Text77.Text) = "" Then '
rs_zhugang.Fields(94) = Null
Else
rs_zhugang.Fields(94) = Text77.Text
End If

If Trim(Text78.Text) = "" Then
rs_zhugang.Fields(95) = Null
Else
rs_zhugang.Fields(95) = Text78.Text
End If

If Trim(Text79.Text) = "" Then
rs_zhugang.Fields(96) = Null
Else
rs_zhugang.Fields(96) = Text79.Text
End If

If Trim(Text80.Text) = "" Then
rs_zhugang.Fields(97) = Null
Else
rs_zhugang.Fields(97) = Text80.Text
End If

If Trim(Text81.Text) = "" Then
rs_zhugang.Fields(98) = Null
Else
rs_zhugang.Fields(98) = Text81.Text
End If

If Trim(Text82.Text) = "" Then
rs_zhugang.Fields(99) = Null
Else
rs_zhugang.Fields(99) = Text82.Text
End If

If Trim(Text83.Text) = "" Then '
rs_zhugang.Fields(100) = Null
Else
rs_zhugang.Fields(100) = Text83.Text
End If

If Trim(Text84.Text) = "" Then
rs_zhugang.Fields(101) = Null
Else
rs_zhugang.Fields(101) = Text84.Text
End If

If Trim(Text85.Text) = "" Then
rs_zhugang.Fields(102) = Null
Else
rs_zhugang.Fields(102) = Text85.Text
End If

If Trim(Text86.Text) = "" Then '
rs_zhugang.Fields(103) = Null
Else
rs_zhugang.Fields(103) = Text86.Text
End If

If Trim(Text87.Text) = "" Then '
rs_zhugang.Fields(104) = Null
Else
rs_zhugang.Fields(104) = Text87.Text
End If

If Trim(Text88.Text) = "" Then
rs_zhugang.Fields(105) = Null
Else
rs_zhugang.Fields(105) = Text88.Text
End If

If Trim(Text89.Text) = "" Then
rs_zhugang.Fields(106) = Null
Else
rs_zhugang.Fields(106) = Text89.Text
End If

If Trim(Text90.Text) = "" Then '
rs_zhugang.Fields(107) = Null
Else
rs_zhugang.Fields(107) = Text90.Text
End If

If Trim(Text91.Text) = "" Then '±¸ ×¢
rs_zhugang.Fields(108) = Null
Else
rs_zhugang.Fields(108) = Text91.Text
End If

If Trim(Text92.Text) = "" Then '±¸ ×¢
rs_zhugang.Fields(109) = Null
Else
rs_zhugang.Fields(109) = Text92.Text
End If

If Trim(Text93.Text) = "" Then '±¸ ×¢
rs_zhugang.Fields(110) = Null
Else
rs_zhugang.Fields(110) = Text93.Text
End If

If Trim(Text94.Text) = "" Then '±¸ ×¢
rs_zhugang.Fields(111) = Null
Else
rs_zhugang.Fields(111) = Text94.Text
End If

If Trim(Text95.Text) = "" Then
rs_zhugang.Fields(112) = Null
Else
rs_zhugang.Fields(112) = Text95.Text
End If

If Trim(Text96.Text) = "" Then
rs_zhugang.Fields(113) = Null
Else
rs_zhugang.Fields(113) = Text96.Text
End If

If Trim(Text97.Text) = "" Then
rs_zhugang.Fields(114) = Null
Else
rs_zhugang.Fields(114) = Text97.Text
End If

If Trim(Text98.Text) = "" Then '
rs_zhugang.Fields(115) = Null
Else
rs_zhugang.Fields(115) = Text98.Text
End If

If Trim(Text99.Text) = "" Then
rs_zhugang.Fields(116) = Null
Else
rs_zhugang.Fields(116) = Text99.Text
End If

If Trim(Text100.Text) = "" Then
rs_zhugang.Fields(117) = Null
Else
rs_zhugang.Fields(117) = Text100.Text
End If

If Trim(Text101.Text) = "" Then
rs_zhugang.Fields(118) = Null
Else
rs_zhugang.Fields(118) = Text101.Text
End If

If Trim(Text102.Text) = "" Then
rs_zhugang.Fields(119) = Null
Else
rs_zhugang.Fields(119) = Text102.Text
End If

If Trim(Text103.Text) = "" Then
rs_zhugang.Fields(120) = Null
Else
rs_zhugang.Fields(120) = Text103.Text
End If

If Trim(Text104.Text) = "" Then
rs_zhugang.Fields(121) = Null
Else
rs_zhugang.Fields(121) = Text104.Text
End If

If Trim(Text105.Text) = "" Then
rs_zhugang.Fields(122) = Null
Else
rs_zhugang.Fields(122) = Text105.Text
End If

If Trim(Text106.Text) = "" Then
rs_zhugang.Fields(123) = Null
Else
rs_zhugang.Fields(123) = Text106.Text
End If

If Trim(Text107.Text) = "" Then
rs_zhugang.Fields(124) = Null
Else
rs_zhugang.Fields(124) = Text107.Text
End If

If Trim(Text108.Text) = "" Then
rs_zhugang.Fields(125) = Null
Else
rs_zhugang.Fields(125) = Text108.Text
End If

If Trim(Text109.Text) = "" Then '
rs_zhugang.Fields(126) = Null
Else
rs_zhugang.Fields(126) = Text109.Text
End If

If Trim(Text110.Text) = "" Then
rs_zhugang.Fields(127) = Null
Else
rs_zhugang.Fields(127) = Text110.Text
End If

If Trim(Text111.Text) = "" Then '
rs_zhugang.Fields(128) = Null
Else
rs_zhugang.Fields(128) = Text111.Text
End If

If Trim(Text112.Text) = "" Then
rs_zhugang.Fields(129) = Null
Else
rs_zhugang.Fields(129) = Text112.Text
End If
If Trim(Text113.Text) = "" Then '
rs_zhugang.Fields(130) = Null
Else
rs_zhugang.Fields(130) = Text113.Text
End If

If Trim(Text114.Text) = "" Then
rs_zhugang.Fields(131) = Null
Else
rs_zhugang.Fields(131) = Text114.Text
End If
If Trim(Text115.Text) = "" Then
rs_zhugang.Fields(132) = Null
Else
rs_zhugang.Fields(132) = Text115.Text
End If

If Trim(Text116.Text) = "" Then
rs_zhugang.Fields(133) = Null
Else
rs_zhugang.Fields(133) = Text116.Text
End If
If Trim(Text117.Text) = "" Then
rs_zhugang.Fields(134) = Null
Else
rs_zhugang.Fields(134) = Text117.Text
End If

If Trim(Text118.Text) = "" Then
rs_zhugang.Fields(135) = Null
Else
rs_zhugang.Fields(135) = Text118.Text
End If
If Trim(Text119.Text) = "" Then
rs_zhugang.Fields(136) = Null
Else
rs_zhugang.Fields(136) = Text119.Text
End If

If Trim(Text120.Text) = "" Then
rs_zhugang.Fields(137) = Null
Else
rs_zhugang.Fields(137) = Text120.Text
End If
If Trim(Text121.Text) = "" Then '
rs_zhugang.Fields(138) = Null
Else
rs_zhugang.Fields(138) = Text121.Text
End If

If Trim(Text122.Text) = "" Then
rs_zhugang.Fields(139) = Null
Else
rs_zhugang.Fields(139) = Text122.Text
End If
If Trim(Text123.Text) = "" Then
rs_zhugang.Fields(140) = Null
Else
rs_zhugang.Fields(140) = Text123.Text
End If
If Trim(Text124.Text) = "" Then '
rs_zhugang.Fields(141) = Null
Else
rs_zhugang.Fields(141) = Text124.Text
End If
If Trim(Text125.Text) = "" Then
rs_zhugang.Fields(142) = Null
Else
rs_zhugang.Fields(142) = Text125.Text
End If
If Trim(Text126.Text) = "" Then
rs_zhugang.Fields(143) = Null
Else
rs_zhugang.Fields(143) = Text126.Text
End If
If Trim(Text127.Text) = "" Then '
rs_zhugang.Fields(144) = Null
Else
rs_zhugang.Fields(144) = Text127.Text
End If
If Trim(Text128.Text) = "" Then
rs_zhugang.Fields(145) = Null
Else
rs_zhugang.Fields(145) = Text128.Text
End If
If Trim(Text129.Text) = "" Then
rs_zhugang.Fields(146) = Null
Else
rs_zhugang.Fields(146) = Text129.Text
End If
If Trim(Text130.Text) = "" Then
rs_zhugang.Fields(147) = Null
Else
rs_zhugang.Fields(147) = Text130.Text
End If
If Trim(Text131.Text) = "" Then '
rs_zhugang.Fields(148) = Null
Else
rs_zhugang.Fields(148) = Text131.Text
End If
rs_zhugang.Update

MsgBox "修改成功¡", vbOKOnly + vbExclamation, "лл"
With grdLoupan
.Row = getrow
.Col = 0
.Text = Text1.Text
.Col = 1
.Text = Combo1.Text
.Col = 2
.Text = DTPicker1.value
.Col = 3
.Text = Combo2.Text
.Col = 4
.Text = Text2.Text
.Col = 5
.Text = Text3.Text
.Col = 6
.Text = Text4.Text
.Col = 7
.Text = Text5.Text
.Col = 8
.Text = Text6.Text
.Col = 9
.Text = Text7.Text
.Col = 10
.Text = Text8.Text
.Col = 11
.Text = Text9.Text
.Col = 12
.Text = Text10.Text
.Col = 13
.Text = Text11.Text
.Col = 14
.Text = Text12.Text
.Col = 15
.Text = Text13.Text
.Col = 16
.Text = Text14.Text
.Col = 17
.Text = Text15.Text
.Col = 18
.Text = Text16.Text
.Col = 19
.Text = Text17.Text
.Col = 20
.Text = Text18.Text
.Col = 21
.Text = Text19.Text
.Col = 22
.Text = Text20.Text
.Col = 23
.Text = Text21.Text
.Col = 24
.Text = Text22.Text
.Col = 25
.Text = Text23.Text
.Col = 26
.Text = Text24.Text
.Col = 27
.Text = Text25.Text
.Col = 28
.Text = Text26.Text
.Col = 29
.Text = Text27.Text
.Col = 30
.Text = Text28.Text
.Col = 31
.Text = Text29.Text
.Col = 32
.Text = Text30.Text
.Col = 33
.Text = Text31.Text
.Col = 34
.Text = Text32.Text
.Col = 35
.Text = Text33.Text
.Col = 36
.Text = Text34.Text
.Col = 37
.Text = Text35.Text
.Col = 38
.Text = Text36.Text
.Col = 39
.Text = Text37.Text
.Col = 40
.Text = Text38.Text
.Col = 41
.Text = Text39.Text
.Col = 42
.Text = Text40.Text
.Col = 43
.Text = Text41.Text
.Col = 44
.Text = Text42.Text
.Col = 45
.Text = Text43.Text
.Col = 46
.Text = Text44.Text
.Col = 47
.Text = Text45.Text
.Col = 48
.Text = Text46.Text
.Col = 49
.Text = Text47.Text
.Col = 50
.Text = Text48.Text
.Col = 51
.Text = Text49.Text
.Col = 52
.Text = Text50.Text
.Col = 53
.Text = Text141.Text
.Col = 54
.Text = Text142.Text
.Col = 55
.Text = Text143.Text
.Col = 56
.Text = Text144.Text
.Col = 57
.Text = Text145.Text
.Col = 58
.Text = Text146.Text
.Col = 59
.Text = Text147.Text
.Col = 60
.Text = Text148.Text
.Col = 61
.Text = Text149.Text
.Col = 62
.Text = Text150.Text
.Col = 63
.Text = Text151.Text
.Col = 64
.Text = Text152.Text
.Col = 65
.Text = Text156.Text
.Col = 66
.Text = Text157.Text
.Col = 67
.Text = Text158.Text
.Col = 68
.Text = Text51.Text
.Col = 69
.Text = Text52.Text
.Col = 70
.Text = Text53.Text
.Col = 71
.Text = Text54.Text
.Col = 72
.Text = Text55.Text
.Col = 73
.Text = Text56.Text
.Col = 74
.Text = Text57.Text
.Col = 75
.Text = Text58.Text
.Col = 76
.Text = Text59.Text
.Col = 77
.Text = Text60.Text
.Col = 78
.Text = Text61.Text
.Col = 79
.Text = Text62.Text
.Col = 80
.Text = Text63.Text
.Col = 81
.Text = Text64.Text
.Col = 82
.Text = Text65.Text
.Col = 83
.Text = Text66.Text
.Col = 84
.Text = Text67.Text
.Col = 85
.Text = Text68.Text
.Col = 86
.Text = Text69.Text
.Col = 87
.Text = Text70.Text
.Col = 88
.Text = Text71.Text
.Col = 89
.Text = Text72.Text
.Col = 90
.Text = Text73.Text
.Col = 91
.Text = Text74.Text
.Col = 92
.Text = Text75.Text
.Col = 93
.Text = Text76.Text
.Col = 94
.Text = Text77.Text
.Col = 95
.Text = Text78.Text
.Col = 96
.Text = Text79.Text
.Col = 97
.Text = Text80.Text
.Col = 98
.Text = Text81.Text
.Col = 99
.Text = Text82.Text
.Col = 100
.Text = Text83.Text
.Col = 101
.Text = Text84.Text
.Col = 102
.Text = Text85.Text
.Col = 103
.Text = Text86.Text
.Col = 104
.Text = Text87.Text
.Col = 105
.Text = Text88.Text
.Col = 106
.Text = Text89.Text
.Col = 107
.Text = Text90.Text
.Col = 108
.Text = Text91.Text
.Col = 109
.Text = Text92.Text
.Col = 110
.Text = Text93.Text
.Col = 111
.Text = Text94.Text
.Col = 112
.Text = Text95.Text
.Col = 113
.Text = Text96.Text
.Col = 114
.Text = Text97.Text
.Col = 115
.Text = Text98.Text
.Col = 116
.Text = Text99.Text
.Col = 117
.Text = Text100.Text
.Col = 118
.Text = Text101.Text
.Col = 119
.Text = Text102.Text
.Col = 120
.Text = Text103.Text
.Col = 121
.Text = Text104.Text
.Col = 122
.Text = Text105.Text
.Col = 123
.Text = Text106.Text
.Col = 124
.Text = Text107.Text
.Col = 125
.Text = Text108.Text
.Col = 126
.Text = Text109.Text
.Col = 127
.Text = Text110.Text
.Col = 128
.Text = Text111.Text
.Col = 129
.Text = Text112.Text
.Col = 130
.Text = Text113.Text
.Col = 131
.Text = Text114.Text
.Col = 132
.Text = Text115.Text
.Col = 133
.Text = Text116.Text
.Col = 134
.Text = Text117.Text
.Col = 135
.Text = Text118.Text
.Col = 136
.Text = Text119.Text
.Col = 137
.Text = Text120.Text
.Col = 138
.Text = Text121.Text
.Col = 139
.Text = Text122.Text
.Col = 140
.Text = Text123.Text
.Col = 141
.Text = Text124.Text
.Col = 142
.Text = Text125.Text
.Col = 143
.Text = Text126.Text
.Col = 144
.Text = Text127.Text
.Col = 145
.Text = Text128.Text
.Col = 146
.Text = Text109.Text
.Col = 147
.Text = Text130.Text
.Col = 148
.Text = Text131.Text
End With
Exit Sub
End If
rs_zhugang.MoveNext
Next i
modifyerror:
MsgBox Err.Description
End Sub