此主题相关图片如下：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