主题：下拉窗口

 共用不是这样做的。红色代码，在进入控件的时候赋值

http://www.foxtable.com/help/topics/0325.htm

If e.Node.Level = 4 Then '如果单击的是第二层节点
    Dim tr As Row = Tables(vars("表名")).Current
    If tr IsNot Nothing Then
        Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
        tr("客户分组") = dr("街道居委")
        e.Form.DropDownBox.Value = tr("客户分组") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If