查看完整版本: error occured when using cq to maname project

error occured when using cq to maname project

关于yunshan的这pianzi帖子，我有些疑问，需要单独开贴，请大家给予指点

[url=http://bbs.scmlife.com/viewthread.php?tid=5075&extra=&page=1]http://bbs.scmlife.com/viewthread.php?tid=5075&extra=&page=1[/url]

相信不少人都看过这篇关于使用cq进行项目管理的文档，我大概说下我是如何操作的：

创建状态无关记录类型 Project，设置好相应字段，主窗体出来的效果是这样的
use_cq_to_manage_project/use_cq_to_manage_project1.jpg

有状态记录类型base效果如下：
use_cq_to_manage_project2.jpg

现在的问题是在base执行输入已经存在的project，其他字段会相应关联起来，如果输入新的project，就会报错，而且只能输入project:
use_cq_to_manage_project3.jpg

再来看下designer下的设计：
project：
use_cq_to_manage_project4.jpg

再来看看base的设计：
use_cq_to_manage_project5.jpg

请大拿们帮我看看啥问题，刚入门，好多都不懂，在线等...

[[i] 本帖最后由 babyrong0205 于 2008-7-4 11:18 编辑 [/i]]

回复 楼主 的帖子

能把你的代码贴上来吗 ？？

回复 沙发 的帖子

我都是照着那篇文档操作的，只是在module的选择列表上添加了这段代码，其他的就没有了

Sub module_list_ChoiceList(fieldname, choices)
  ' fieldname As String
  ' choices As Object
  ' record type name is Defect
  ' field name is module_list
    REM use choices.AddItem("value") repeatedly to construct the choice list.  Example:
    REM choices.AddItem("red")
    REM choices.AddItem("green")
    REM choices.AddItem("blue")

        dim session
        dim cur_proj_choice

    set session = getsession()
    cur_proj_choice = GetFileldValue("Project").GetValue()
   
                if cur_proj_choice <> "" then
        Qry = "select T1.dbid,T1.name,T1.description,T3.name from module T1,project T3  "&_
                "where T1.project = T3.dbid  "&_
                "and (T1.dbid <> 0 and "&_
                "(T3.name = '"&cur_proj_choice&"'))"

        set ResultSet = session.BuildSQLQuery(Qry)
        ResultSet.Execute
        aItem = ResultSet.MoveNext
        Do While aItem = AD_SECCESS
            choices.AddItem(ResultSet.GetColumnValue(2))
            aItem = ResultSet.MoveNext
        loop
    else
        SetFieldValue filedname, ""
    End if
End Sub

回复 板凳 的帖子

那个字段的choicelist的属性将那两个属性都勾选上了吗？
尤其是第一个