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

轻扬婉儿 发表于 2006-11-30 16:10:32

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

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

luming 发表于 2006-11-30 16:12:41

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

轻扬婉儿 发表于 2006-11-30 16:14:50

我就是照着那个做的呀

luming 发表于 2006-11-30 16:38:59

你把脚本贴出来看看。

轻扬婉儿 发表于 2006-11-30 16:51:20

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:21

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

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

轻扬婉儿 发表于 2006-12-1 09:59:43

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

chijj 发表于 2006-12-18 14:34:30

可以参考一下

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

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 JOINproject B ON A.f_project = B.dbidWHERE (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 编辑 ]

页: [1]

51Testing软件测试论坛 's Archiver

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

可以参考一下