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

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)("与户主关系")

        Next

    End If

End If

 

 

版主  能帮我把这断话加一下中文说明吗

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

此主题相关图片如下：qq截图20130617101258.png

版主麻烦在看一下

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

如果我希望清除窗口中所有文本框的内容，显然只能使用遍历才能完成这样的任务。
但是遍历控件的时候，只能使用WinForm.Control类型的变量，但是这样的变量又不能访问文本框的Value属性。
所以只能在遍历控件的时候判断控件类型，然后用具体的控件类型变量来引用控件：

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
        Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
        t.Value = Nothing
    End If
Next

 

版主  这里写着只有这个才能清楚所有文本框的内容

但是我放进去以后就提示Form不是TableEventArgs的成员

错误代码是   For Each c As WinForm.Control In e.Form.Controls

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

新问题版主,用清空文本控件后的新问题,点户号哪个窗口来回切换的话会把原来的数据删数 而不是清空文本控件的内容

下载复件看

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

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

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