主题：代码运行很慢。请问怎么改好？

Dim strs() As String = {"收支维护","洽商维护","设计维护","工资维护","考勤维护","机具订单维护","预算计划维护","需用计划维护","采购订单维护","销售订单维护"}
Dim strs1() As String ={"收支管理","洽商汇总","设计汇总","工资发放","考勤","机具订单","预算计划","需用计划","采购订单","销售订单"}
For i As Integer = 0 To strs.Length - 1
    If Forms(strs(i)).Opened Then
        Dim tr As Row = Tables(strs1(i)).Current
        If tr IsNot Nothing Then
            If e.Node.Level = 0 Then '如果单击的是第一层节点
                Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
                tr("合同编号") = dr("合同编号")
                e.Form.DropDownBox.Value = tr("合同编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
                e.Form.DropDownBox.CloseDropdown()
            End If
        End If
        Return
    End If
Next