在配置cq时遇到的一个问题

yangliu_82316

我在配置cq时，对项目和该项目的模块实现对应的关系
该怎么设置呢？
例如：项目ABC中有4个子模块，想在提交bug时，选择项目ABC时，此项目的4个子模块就会相应的带出来，而不是选择一个项目，把其他项目对应的模块都带出来

lounacn

家里没装CQ，脚本内容大概如下，请根据实际需要修改：

    Dim session
        Dim projectname
        Dim modelname

        set session = getsession
        projectname = GetFieldValue("项目").GetValue()

        if projectname<> "" then
        strsql = "Select 模块 from defect where 项目 = " + projectname
        Set ResultSet = session.BuildSQLQuery(strsql )
        ResultSet.Execute

        modelname = ResultSet.MoveNext
        while (modelname = AD_SUCCESS)
             choices.AddItem(ResultSet.GetCloumnValue(1))
             modelname = ResultSet.MoveNext
        wend

yangliu_82316

非常感谢lounacn