主题：[求助]关联表在窗口全部显示

.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目10.table

If Forms("户口").Opened Then '判断一下 户口  窗口是否处于打开状态

    Dim cList As List(of DataRow) = e.Table.Current.DataRow.GetChildRows("户口详细")   获得所有关联子表行

    If cList IsNot Nothing Then  '如果有获得行,不是空值

        For i As Integer = 0 To cList.Count-1  '那么循环遍历获得的所有子表关联行

            Forms("户口").Controls("txthz" & i).text=cList(i)("与户主关系") '为文本框赋值  "txthz" & i   这里为拼接文本框的名称  假如获得2行子表数据 那么循环2次拼接的 名称分别是 txthz0  txthz1  

        Next

    End If

End If

If Forms("户口").Opened Then '判断一下 户口  窗口是否处于打开状态

不要生搬硬套.你表事件何来的e.Form  你应该是用Forms("户口")

你请空把关联列给清空了, 你要么判断一下不需要清空的不清空 要么全部都不要绑定列, 全部使用代码赋值处理