Dim strs() As String = {"收支维护","洽商维护","设计维护","工资维护","考勤维护","机具订单维护","预算计划维护","需用计划维护","采购订单维护","销售订单维护"}
Dim strs1() As String ={"收支管理","洽商汇总","设计汇总","工资发放","考勤","机具订单","预算计划","需用计划","采购订单","销售订单"}
For Each str As String In strs
For Each str1 As String In strs1
If Forms(str).Opened = True And Tables(str1).Current IsNot Nothing Then
If e.Node.Level = 0 Then '如果单击的是第三层节点
Dim tr As Row = Tables(str1).Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
tr("合同编号") = dr("合同编号")
e.Form.DropDownBox.Value = tr("合同编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()
End If
End If
Next
Next
上面是一个:下拉窗口目录树的单击代码。运行很慢。
'If Forms("考勤维护").Opened = True Then
'If e.Node.Level = 0 Then '如果单击的是第三层节点
'Dim tr As Row = Tables("考勤").Current
'Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
'tr("合同编号") = dr("合同编号")
'e.Form.DropDownBox.Value = tr("合同编号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
'e.Form.DropDownBox.CloseDropdown()
'End If
'End If
如果不用循环语句,只用单个的写,没问题。快的。