北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
将会计科目设置成了树形窗体，当点击树形窗体的内容时，内容显示在对应的“分类账”窗体中，比如：点击树形“资产类”下面的“现金”时，分类账中对应的自动显示出来“总账科目”中“现金”的往来的明细内容。求老师们帮助一下。
�������ش˸���
在树控件单击事件最后加上如下三句代码试试:
Me.分类账.Form.总账科目 = Me.总账科目ID.Column(2)
Me.分类账.Form.明细科目 = Me.明细科目
Me.分类账.Form.分类账_子窗体.Requery
点击下载此附件
回贴前我是经过测试成功后才上传的.应该不会有问题啊.检查一下你的引用是否有丢失.
下图是我运行时的效果
修改后的树控件单击事件代码如下:
Private Sub TreeView2_NodeClick(ByVal node As Object)
Dim Arr
Me.nodepath.Value = node.Key
Me.总账科目ID.Value = Null
Me.编号.Value = Null
Me.明细科目.Value = Null
Me.总账科目ID.Value = Null
Me.余额方向.Value = Null
Me.备注.Value = Null
Arr = Split(Me.nodepath.Value, ";")
Select Case UBound(Arr)
Case 2
Me.总账科目ID.Value = Arr(2)
Case 3
Me.总账科目ID.Value = Arr(2)
Me.总账科目ID.Value = Arr(3)
Me.明细科目.Value = node.Text
Me.编号.Value = DLookup("编号", "明细科目", "科目ID=" & Arr(3))
Me.余额方向.Value = DLookup("余额方向", "明细科目", "科目ID=" & Arr(3))
Me.备注.Value = DLookup("备注", "明细科目", "科目ID=" & Arr(3))
Case Else
Exit Sub
End Select
Me.分类账.Form.总账科目 = Me.总账科目ID.Column(2)
Me.分类账.Form.明细科目 = Me.明细科目
Me.分类账.Form.分类账_子窗体.Requery
End Sub
