|
可以参考一下
上面的帖子如果你能实现,稍做改动就可以了。
Sub f_model_ChoiceList(fieldname, choices)
Dim strProjectName
strProjectName = GetFieldValue("Project").GetValue()
IF strProjectName<>"" THEN
Call GetModel(strProjectName,choices)
End IF
End Sub
' 功能说明:取得项目的对应模块
Sub GetModel (ProjectName,Choices)
REM added your hook code here
Dim Sess
Dim ResultSet
Dim strSql
Dim strModel
On Error Resume Next
Set Sess = GetSession
' 获取相应项目编号下的模块名称
strSql="SELECT A.f_name FROM t_model A INNER JOIN project B ON A.f_project = B.dbid WHERE (B.name = '"& ProjectName &"')"
Set ResultSet = Sess.BuildSQLQuery(strSql)
ResultSet.Execute
' 添加模块列表
While (ResultSet.MoveNext = AD_SUCCESS)
strModel = ResultSet.GetColumnvalue(1)
Choices.AddItem strModel
Doevents
Wend
End Sub
[ 本帖最后由 chijj 于 2006-12-18 14:36 编辑 ] |
|