看到一段主从代码！贴过来大家研究下！
是个实现关联（主从关系）。
（1）建立一个Type,输入模块。
（2）再建立一个Type,输入模块和子模块对应。
（3）在你要用的Type中，用代码。类似：
Set sessionObj = GetSession()
mdl_name = GetFieldValue("模块").GetValue()
Set queryObj = sessionObj.BuildQuery("子模块")
queryObj.BuildField ("name")
Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_AND)
filterObj.BuildFilter "parent_module", AD_COMP_OP_EQ, mdl_name
Set resultSetObj = sessionObj.BuildResultSet(queryObj)
resultSetObj.Execute
Do While resultSetObj.MoveNext = AD_SUCCESS
choices.AddItem resultSetObj.GetColumnValue(1)
SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
Loop
搜索更多相关主题的帖子:
主从 代码
