-- 作者:liguichuan
-- 发布时间:2012/1/10 0:54:00
-- [求助]关于代码动态创建双向关联表的求助
Dim 父表(11) As DataCol Dim 子表(11) As DataCol 父表(0) = DataTables("入库单").DataCols("入库单号") 父表(1) = DataTables("入库单").DataCols("领料单号") 父表(2) = DataTables("入库单").DataCols("来料项目") 父表(3) = DataTables("入库单").DataCols("存入仓库") 父表(4) = DataTables("入库单").DataCols("领料站点") 父表(5) = DataTables("入库单").DataCols("入库类型") 父表(6) = DataTables("入库单").DataCols("入库单录入员") 父表(7) = DataTables("入库单").DataCols("入库单状态") 父表(8) = DataTables("入库单").DataCols("入库单录入时间") 父表(9) = DataTables("入库单").DataCols("审核人员") 父表(10) = DataTables("入库单").DataCols("审核时间") 父表(11) = DataTables("入库单").DataCols("审核意见")
子表(0) = DataTables("入库单明细").DataCols("入库单号") 子表(1) = DataTables("入库单明细").DataCols("领料单号") 子表(2) = DataTables("入库单明细").DataCols("来料项目") 子表(3) = DataTables("入库单明细").DataCols("存入仓库") 子表(4) = DataTables("入库单明细").DataCols("领料站点") 子表(5) = DataTables("入库单明细").DataCols("入库类型") 子表(6) = DataTables("入库单明细").DataCols("入库单录入员") 子表(7) = DataTables("入库单明细").DataCols("入库单状态") 子表(8) = DataTables("入库单明细").DataCols("入库单录入时间") 子表(9) = DataTables("入库单明细").DataCols("审核人员") 子表(10) = DataTables("入库单明细").DataCols("审核时间") 子表(11) = DataTables("入库单明细").DataCols("审核意见")
Relations.Add("关联_入库单_入库单明细", 父表, 子表,RelationPathEnum.both)
关联列确实多了些,但应该没有关系吧。截图如下。
在父表下方能够显示关联表,子表下方显示不了关联表。求错在哪?
此主题相关图片如下:入库单_入库单明细.jpg
此主题相关图片如下:入库单明细_入库单.jpg
|