此主题相关图片如下:未标题-1.jpg
利用教程,学会了二级目录树的制作,但三级目录树不会,。如下图
烦请狐爸帮手改下如下代码,(区域/省份/客户名称)
If e.Node.Level = 1 Then '如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\")
Dim tr As Row = Tables("费用主表").Current
Dim dr As DataRow = DataTables("商家信息表").Find("区域 = '" & ps(0) & "' And 客户名称 = '" & ps(1) & "'")
If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
tr("区域") = dr("区域")
tr("省份") = dr("省份")
tr("客户名称") = dr("客户名称")
tr("分销商") = dr("分销商")
e.Form.DropDownBox.Value = tr("客户名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown()
End If
谢谢,