如何在两个关联的明细表中共用下拉，
If e.Node.Level = 1 Then '如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\")
Dim tr As Row
If e.Form.DropTable IsNot Nothing Then
If e.Form.DropTable.Current IsNot Nothing Then
tr = e.Form.DropTable.Current
End If
Else
If e.Form.DropDownBox.BindingField > "" Then
Dim nm As String = e.Form.DropDownBox.BindingField
nm = nm.Split(".")(0)
tr = Tables(nm).Current
End If
End If
If tr Is Nothing Then
Return
End If
Dim dr As DataRow = DataTables("销售产品").Find("类别 = '" & ps(0) & "' And 产品名称 = '" & ps(1) & "'")
If dr IsNot Nothing Then
tr("产品名称") = dr("产品名称")
tr("单位") = dr("单位")
e.Form.DropDownBox.Value = tr("产品名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树
End If
加好友 
发短信
Post By：2016/9/14 0:48:00 [显示全部帖子]
