关于:treeView双击取值并传递的问题

george

Private Sub tree_DblClick()

    If tree.SelectedItem.Children = 0 Then

        MsgBox "选定的货号是:  " & tree.SelectedItem.Key

        If IsLoaded("交货清单") <> 0 Then

            [Forms]![交货清单]![交货清单sub]![Form]![货号] = tree.SelectedItem.Key

            DoCmd.Close acForm, "产品"

        End If

    End If

End Sub

Function IsLoaded(strName As String, Optional intObjectType As Integer = acForm)

    IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)

End Function



红色代码无效,请教该如何修改?

CHENZHIRONG

把文件传上来,这样没办法看出什么问题.

george

文件传上来,请帮完成,谢谢

补一句:修改好代码后不要立即调试,先关闭,重新打开文件,调试,否则会很长时间死机一样

[此贴子已经被作者于2005-3-1 11:35:40编辑过]

CHENZHIRONG

Forms![交货清单].交货清单sub.Form.货号 = tree.SelectedItem.Key

在我的机子上这语句运行成功,我看不出与你的有什么不同.

george

怪,现在解决,谢谢

wu8313

[Forms]![交货清单]![交货清单sub]![Form]![货号] = tree.SelectedItem.Key

            DoCmd.Close acForm, "产品"

没有仔细看，估计关于窗体中子窗体控件值的引用语法好像有些问题。在联机帮助或者本论坛搜索一下，“子窗体控件”