主题：一个被很多人忽略的属性

If e.Node.Level = 1 Then '如果单击的是第二层节点

    Dim ps() As String = e.Node.FullPath.Split("\") '这行是多余的,省略此行,代码正常执行.

    Dim tr As Row = Tables("客户").Current

    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

    tr("省市") = dr("省市")

    tr("县市") = dr("县市")

    tr("区号") = dr("区号")

    tr("邮编") = dr("邮编")

    e.Form.DropDownBox.Value = tr("县市") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

    e.Form.DropDownBox.CloseDropdown()

End If