Office中国论坛/Access中国论坛

标题: 关于:treeView双击取值并传递的问题 [打印本页]

作者: george 时间: 2005-3-1 18:26
标题: 关于:treeView双击取值并传递的问题
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 时间: 2005-3-1 18:41
把文件传上来,这样没办法看出什么问题.

作者: george 时间: 2005-3-1 19:27
[attach]9122[/attach]

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

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

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

作者: CHENZHIRONG 时间: 2005-3-1 20:39
[attach]9123[/attach]

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

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

作者: george 时间: 2005-3-1 20:56
怪,现在解决,谢谢

作者: wu8313 时间: 2005-3-2 03:23
[Forms]![交货清单]![交货清单sub]![Form]![货号] = tree.SelectedItem.Key

DoCmd.Close acForm, "产品"

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)