clearquset字段互相依赖时报类型不匹配

轻扬婉儿

我建立了一个Project 一个model
然后在Defect 里面想实现选一个Project 就能对应选出model中的模块
做完以后报类型不匹配

[ 本帖最后由 轻扬婉儿 于 2006-11-30 16:14 编辑 ]

luming

你怎么做的啊。
可以找找，我记得在2页内就有一个相关的帖子。

轻扬婉儿

我就是照着那个做的呀

luming

你把脚本贴出来看看。

轻扬婉儿

SetFieldValue "model", ""
上面定义在 Field 那边的project
Dim strprojectName
strprojectName=GetFieldValue("Project").GetValue()
IF strprojectName<>"" THEN
   Call Getmodel(strprojectName,choices)
End IF
这段定义在  Field 那边的model 处

我单建立了 和原来系统带的poject一样的一个
model

luming

http://bbs.51testing.com/thread-31019-1-1.html

你看看上面的帖子里面是怎么做的，你照做着试试。

轻扬婉儿

sdlkfj7 我们有好多好多个项目  每个项目都有至少七八个模块
那要写多久呀
没有更好的办法了吗 不能取Project值直接代出相对应的模块吗

chijj

上面的帖子如果你能实现，稍做改动就可以了。


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 编辑 ]