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

这是要做什么？怎么同时对每一个窗口进行循环，每一个窗口又要对所有的表进行操作呢？这么做不慢才怪呢！

 

 

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

谢谢，搞定。哎哟，放假，有还朋友帮助，太感谢了。