您好!老师:
请您帮我优化一下下面的代码:
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
谢谢老师!!!
加好友 
发短信
Post By：2017/4/16 21:57:00 [显示全部帖子]
