51Testing软件测试论坛

标题: clearquset字段互相依赖时报类型不匹配 [打印本页]

作者: 轻扬婉儿 时间: 2006-11-30 16:10
标题: clearquset字段互相依赖时报类型不匹配
我建立了一个Project 一个model
然后在Defect 里面想实现选一个Project 就能对应选出model中的模块
做完以后报类型不匹配

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

作者: luming 时间: 2006-11-30 16:12
你怎么做的啊。
可以找找，我记得在2页内就有一个相关的帖子。

作者: 轻扬婉儿 时间: 2006-11-30 16:14
我就是照着那个做的呀

作者: luming 时间: 2006-11-30 16:38
你把脚本贴出来看看。

作者: 轻扬婉儿 时间: 2006-11-30 16:51
SetFieldValue "model", ""
上面定义在 Field 那边的project
Dim strprojectName
strprojectName=GetFieldValue("Project").GetValue()
IF strprojectName<>"" THEN
Call Getmodel(strprojectName,choices)
End IF
这段定义在 Field 那边的model 处

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

作者: luming 时间: 2006-12-1 08:47
http://bbs.51testing.com/thread-31019-1-1.html

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

作者: 轻扬婉儿 时间: 2006-12-1 09:59
sdlkfj7 我们有好多好多个项目每个项目都有至少七八个模块
那要写多久呀
没有更好的办法了吗不能取Project值直接代出相对应的模块吗

作者: chijj 时间: 2006-12-18 14:34
标题: 可以参考一下
上面的帖子如果你能实现，稍做改动就可以了。

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)