求助代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

您好!老师:

请您帮我优化一下下面的代码:

   If e.sender.Checked = False Then
       Return
   Else
       Dim a = t.Current
       Dim ny1 = a("nydc1")
       Dim ny2 = a("nydc2")
       Dim ny3 = a("nydc3")
       Dim ny4 = a("nydc4")
       Dim ny5 = a("nydc5")
       Dim ny6 = a("nydc6")
       Dim ny7 = a("nydc7")
       Dim ny8 = a("nydc8")
       Dim ny9 = a("nydc9")
       Dim ny10 = a("nydc10")
       Dim ny11 = a("nydc11")
       Dim ny12 = a("nydc12")
       Dim ny13 = a("nydc13")
       Dim ny14 = a("nydc14")
       Dim ny15 = a("nydc15")
       Dim ny16 = a("nydc16")
       Dim ny17 = a("nydc17")
       Dim ny18 = a("nydc18")
       With Tables("qrymyf.qraaan.ddwxnyfgge")
           .Cols("nydc21").Caption = "洗水前_" & ny1
           .Cols("nydc22").Caption = "洗水前_" & ny2
           .Cols("nydc23").Caption = "洗水前_" & ny3
           .Cols("nydc24").Caption = "洗水前_" & ny4
           .Cols("nydc25").Caption = "洗水前_" & ny5
           .Cols("nydc26").Caption = "洗水前_" & ny6
           .Cols("nydc27").Caption = "洗水前_" & ny7
           .Cols("nydc28").Caption = "洗水前_" & ny8
           .Cols("nydc29").Caption = "洗水前_" & ny9
           .Cols("nydc30").Caption = "洗水前_" & ny10
           .Cols("nydc31").Caption = "洗水前_" & ny11
           .Cols("nydc32").Caption = "洗水前_" & ny12
           .Cols("nydc33").Caption = "洗水前_" & ny13
           .Cols("nydc34").Caption = "洗水前_" & ny14
          .Cols("nydc35").Caption = "洗水前_" & ny15
           .Cols("nydc36").Caption = "洗水前_" & ny16
           .Cols("nydc37").Caption = "洗水前_" & ny17
           .Cols("nydc38").Caption = "洗水前_" & ny18
           .BuildHeader()
       End With
       With Tables("qrymyf.qraaan.ddwxnyfgge")
           If a.Isnull("nydc1") = True Then
               .Cols("nydc21").Visible = False
           Else
               .Cols("nydc1").Visible = True
                .Cols("nydc21").Visible = True
            End If
            If a.Isnull("nydc2") = True Then
                .Cols("nydc22").Visible = False
            Else
                .Cols("nydc2").Visible = True
                .Cols("nydc22").Visible = True
            End If
            If a.Isnull("nydc3") = True Then
                .Cols("nydc23").Visible = False
            Else
                .Cols("nydc3").Visible = True
                .Cols("nydc23").Visible = True
            End If
            If a.Isnull("nydc4") = True Then
                .Cols("nydc24").Visible = False
            Else
                .Cols("nydc4").Visible = True
                .Cols("nydc24").Visible = True
            End If
            If a.Isnull("nydc5") = True Then
                .Cols("nydc25").Visible = False
            Else
                .Cols("nydc5").Visible = True
                .Cols("nydc25").Visible = True
            End If
            If a.Isnull("nydc6") = True Then
                .Cols("nydc26").Visible = False
            Else
                .Cols("nydc6").Visible = True
                .Cols("nydc26").Visible = True
            End If
            If a.Isnull("nydc7") = True Then
                .Cols("nydc27").Visible = False
            Else
                .Cols("nydc7").Visible = True
                .Cols("nydc27").Visible = True
            End If
            If a.Isnull("nydc8") = True Then
                .Cols("nydc28").Visible = False
            Else
                .Cols("nydc8").Visible = True
                .Cols("nydc28").Visible = True
            End If
            If a.Isnull("nydc9") = True Then
                .Cols("nydc29").Visible = False
            Else
                .Cols("nydc9").Visible = True
                .Cols("nydc29").Visible = True
            End If
            If a.Isnull("nydc10") = True Then
                .Cols("nydc30").Visible = False
            Else
                .Cols("nydc10").Visible = True
                .Cols("nydc30").Visible = True
            End If
            If a.Isnull("nydc11") = True Then
                .Cols("nydc31").Visible = False
            Else
                .Cols("nydc11").Visible = True
                .Cols("nydc31").Visible = True
            End If
            If a.Isnull("nydc12") = True Then
                .Cols("nydc32").Visible = False
            Else
                .Cols("nydc12").Visible = True
                .Cols("nydc32").Visible = True
            End If

            If a.Isnull("nydc13") = True Then
                .Cols("nydc33").Visible = False
            Else
                .Cols("nydc13").Visible = True
                .Cols("nydc33").Visible = True
            End If
            If a.Isnull("nydc14") = True Then
                .Cols("nydc34").Visible = False
            Else
                .Cols("nydc14").Visible = True
                .Cols("nydc34").Visible = True
            End If
            If a.Isnull("nydc15") = True Then
                .Cols("nydc35").Visible = False
            Else
                .Cols("nydc15").Visible = True
                .Cols("nydc35").Visible = True
            End If
            If a.Isnull("nydc16") = True Then
                .Cols("nydc36").Visible = False
            Else
                .Cols("nydc16").Visible = True
                .Cols("nydc36").Visible = True
            End If
            If a.Isnull("nydc17") = True Then
               .Cols("nydc37").Visible = False
           Else
               .Cols("nydc17").Visible = True
               .Cols("nydc37").Visible = True
           End If
            If a.Isnull("nydc18") = True Then
                .Cols("nydc38").Visible = False
            Else
                .Cols("nydc18").Visible = True
                .Cols("nydc38").Visible = True
            End If
        End With
        t.ResumeRedraw
    End If

谢谢老师!!!

主题：求助 代码优化

主题：求助代码优化