张根良 发表于：2007-11-05 08:34:01
问:我在做低值易耗品管理(应该与固定资产管理类同,实现每一项资产的增加减少一对一管理)时,有以下设想:第一个是资产增加窗体,资产的内容包括:资产编号(自动),内容编码,部门名称(大部门),明细部门,资产大类,资产名称,规格型号,金额,资产增加方式,资产来源.第二个窗体是资产减少窗体,内容与资产增加窗体差不多,我在这里想要实现的功能是:在减少窗体中填写了部门名称,明细部门,资产大类后,在资产名称这个组合框内下拉显来的是符合该条件的所有资产明细,实质上是将原窗体中的查找功能的运用,只不过一个是系统已经设好了,一个是要在资产减少窗体中分别填写实现查找功能,现在我需要帮助的是在减少窗体中填写了部门名称,明细部门,资产大类后,在资产名称这个组合框内下拉显来的是符合该条件的所有资产明细的功能如何操作才能实现?
参考 如何选择省份即可选择相对应的城市示例 :http://www.accessoft.com/article-show.asp?id=317
Private Sub Combo0_AfterUpdate()
Me.Refresh
Me.List2.RowSource = "SELECT city.ctID as 城市编码, city.ctmc as 城市名称 " _
& "FROM city " _
& "WHERE city.prID = '" & Me.Combo0.Column(0) & "'"
Debug.Print Me.List2.RowSource
Me.List2.Requery
End Sub
以上是城市示例中的代码,不过能简单解释一下吗?特别是"-","Column(0)","Debug.Print"等的作用?
对于"城市示例"这个示例,我建议bamboo,在省份,城市后面再加一个内容,如乡镇,这样一来,相对于初学者来说更容易理解,这样初学者很容易明白,在填了省份,选择了城市后,这个乡镇的选择区间了,对不?而现在只有这城市示例,就要我马上写出我提问的代码,至少我是不能一下子做到,不知别的学员能否马上做到?
debug.print的解释: 是为了方便开发人员在立即窗口一行一行调试代码,可以看到结果。
下划线 _ 的解释: 与后一行的 & 一起，将两行连在一起，相当于一行，上面的代码如果不用_,则就是：
Me.List2.RowSource = "SELECT city.ctID as 城市编码, city.ctmc as 城市名称 FROM city WHERE city.prID = '" & Me.Combo0.Column(0) & "'"
column(0)的解释：代表组合框的第1列，如果是column(1)，则代表第2列。
总记录：4篇 页次：1/1 9 1 :
