51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3904|回复: 7
打印 上一主题 下一主题

[原创] clearquset字段互相依赖时报类型不匹配

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-11-30 16:10:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我建立了一个Project 一个model
然后在Defect 里面想实现选一个Project 就能对应选出model中的模块
做完以后报类型不匹配

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    奋斗
    昨天 07:53
  • 签到天数: 3639 天

    连续签到: 91 天

    [LV.Master]测试大本营

    2#
    发表于 2006-11-30 16:12:41 | 只看该作者
    你怎么做的啊。
    可以找找,我记得在2页内就有一个相关的帖子。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
     楼主| 发表于 2006-11-30 16:14:50 | 只看该作者
    我就是照着那个做的呀
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    昨天 07:53
  • 签到天数: 3639 天

    连续签到: 91 天

    [LV.Master]测试大本营

    4#
    发表于 2006-11-30 16:38:59 | 只看该作者
    你把脚本贴出来看看。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 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
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    昨天 07:53
  • 签到天数: 3639 天

    连续签到: 91 天

    [LV.Master]测试大本营

    6#
    发表于 2006-12-1 08:47:21 | 只看该作者
    http://bbs.51testing.com/thread-31019-1-1.html

    你看看上面的帖子里面是怎么做的,你照做着试试。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
     楼主| 发表于 2006-12-1 09:59:43 | 只看该作者
    sdlkfj7 我们有好多好多个项目  每个项目都有至少七八个模块
    那要写多久呀
    没有更好的办法了吗 不能取Project值直接代出相对应的模块吗
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 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 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 编辑 ]
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-13 04:32 , Processed in 0.068058 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表