应该算恐怖吧,下面这样看起来就好多了。
e.Form.Controls("RelationTable1").Visible = True Dim s1 As String =e.Form.Controls("TextBox1").Value Dim s2 As String s2 = s1.SubString(0,4) If s2 = "6001" Then e.Form.Controls("RelationTable2").Visible = True e.Form.Controls("RelationTable14").Visible = True e.Form.Controls("RelationTable20").Visible = True e.Form.Controls("RelationTable23").Visible = True e.Form.Controls("RelationTable26").Visible = True ElseIf s2 = "6002" Then e.Form.Controls("RelationTable3").Visible = True e.Form.Controls("RelationTable15").Visible = True e.Form.Controls("RelationTable22").Visible = True e.Form.Controls("RelationTable24").Visible = True e.Form.Controls("RelationTable27").Visible = True ElseIf s2 = "6003" OrElse s2 = "6004" Then e.Form.Controls("RelationTable3").Visible = True e.Form.Controls("RelationTable15").Visible = True e.Form.Controls("RelationTable22").Visible = True e.Form.Controls("RelationTable24").Visible = True e.Form.Controls("RelationTable27").Visible = True e.Form.Controls("RelationTable21").Visible = True ElseIf s2 = "6005" OrElse s2 = "6006" Then e.Form.Controls("RelationTable4").Visible = True e.Form.Controls("RelationTable9").Visible = True e.Form.Controls("RelationTable28").Visible = True e.Form.Controls("RelationTable24").Visible = True e.Form.Controls("RelationTable27").Visible = True ElseIf s2 = "6007" OrElse s2 = "6008" OrElse s2 = "6009" OrElse s2 = "6010" OrElse s2 = "6011" OrElse s2 = "6012" OrElse s2 = "6017" Then e.Form.Controls("RelationTable5").Visible = True e.Form.Controls("RelationTable11").Visible = True e.Form.Controls("RelationTable17").Visible = True e.Form.Controls("RelationTable8").Visible = True e.Form.Controls("RelationTable25").Visible = True ElseIf s2 = "6013" OrElse s2 = "6014" OrElse s2 = "6015" OrElse s2 = "6016" OrElse s2 = "6018" OrElse s2 = "6019" OrElse s2 = "6020" Then e.Form.Controls("RelationTable5").Visible = True e.Form.Controls("RelationTable11").Visible = True e.Form.Controls("RelationTable19").Visible = True e.Form.Controls("RelationTable8").Visible = True e.Form.Controls("RelationTable25").Visible = True ElseIf s2 = "6100" OrElse s2 = "6101" OrElse s2 = "6102" OrElse s2 = "6103" OrElse s2 = "6104" OrElse s2 = "6105" OrElse s2 = "6106" OrElse s2 = "6107" Then e.Form.Controls("RelationTable6").Visible = True e.Form.Controls("RelationTable12").Visible = True e.Form.Controls("RelationTable29").Visible = True e.Form.Controls("RelationTable31").Visible = True e.Form.Controls("RelationTable33").Visible = True ElseIf s2 = "6121" OrElse s2 = "6022" OrElse s2 = "6023" OrElse s2 = "6024" OrElse s2 = "6025" OrElse s2 = "6026" OrElse s2 = "6027" OrElse s2 = "6028" Then e.Form.Controls("RelationTable7").Visible = True e.Form.Controls("RelationTable13").Visible = True e.Form.Controls("RelationTable30").Visible = True e.Form.Controls("RelationTable32").Visible = True e.Form.Controls("RelationTable34").Visible = True End If
|