如何定义主键
我在无状态记录类型中建立了一个Model记录类型,然后和Project记录类型一起完成
只要点击项目就可以显示相关模块的功能.
当前的Model的字段如下
name short 类型
fproject referece类型
modelno int型
我本想用modelno 做为主键可是在我对DEfect进行保存时就报错
我的Defect上的Model列表处用了如下脚本
DIM objSession, objQueryDef, operator1, ResultSet, RelatedProjectName
Set objSession = GetSession()
RelatedProjectName = GetFieldValue("Project").GetValue()
Set objQueryDef = objSession.BuildQuery("Model")
objQueryDef.BuildField("name")
Set operator1 = objQueryDef.BuildFilterOperator(AD_BOOL_OP_AND)
operator1.BuildFilter "fproject", AD_COMP_OP_EQ, RelatedProjectName
Set ResultSet = objSession.BuildResultSet(objQueryDef)
ResultSet.execute
Do While ResultSet.MoveNext = AD_SUCCESS
choices.AddItem(ResultSet.GetColumnValue(1))
Loop
choices.Sort
也就是如果我加入上面脚本 我只有用Model的name做主键或者用froject时保存defect不报错,其它都报错
但是我不能用name或者froject做主键,因为我一下项目上有多个模块.然后在增加模块的表单上froject必须允许重复调用呀
请高手指点一下了
搜索更多相关主题的帖子:
定义