主题：目录树更新

此主题相关图片如下：1.png

 

我这里司机这块是调用 司机车辆信息 生成的目录树，如果当前目录树没有该客户的司机信息，然后通过 后面 + 调用司机车辆信息窗体，维护司机信息，维护好之后，然后再次调用司机目录树，可是现在不能立刻刷新目录树，请赐教

 

 

此主题相关图片如下：2.png

 

已在司机车辆维护信息 关闭事件里写了代码，重新生成目录树

If Forms("司机车辆信息").opened Then

    Dim trv As WinForm.TreeView = Forms("司机车辆目录树").Controls("TreeView1")

    If Forms("新增采购煤干石").opened Then

        Trv.BuildTree("司机车辆信息","司机","司机类型 like '%拉煤干石%'","编号")

    ElseIf Forms("新增赊销销砖").opened Then

        Trv.BuildTree("司机车辆信息","司机","司机类型 like '%拉砖%'","编号")

    ElseIf Forms("新增客户发砖").opened Then

        Trv.BuildTree("司机车辆信息","司机","司机类型 like '%拉砖%'","编号")

    Else

        Trv.BuildTree("司机车辆信息","司机","","编号")

    End If

   

    trv.StopRedraw '停止绘制目录树

    For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

        If nd.Level = 0 Then '如果是一级节点

            'nd.Text = nd.DataRow("编号") & "|" & nd.text

            nd.Text = nd.DataRow("编号") & "|" & nd.text & "|" & nd.DataRow("车号") & "|" & nd.DataRow("手机号")

        End If

    Next

    trv.ResumeRedraw '恢复绘制目录

Else

    e.Form.close

End If

到下拉窗口的DropDownOpened事件重新生成目录树