主题：当前数据永远在第一行，怎么变通为遍历所有行，当信息类别和信息内容等不为空的时候，新增告知内容列表，且与当前新增记录行匹配对应数据

是不是你表名写错了

Dim br As Row=Tables("信息列表").Current

改成

Dim br As Row=Tables("窗口表名").Current

这个意思？

for each br As Row in Tables("信息列表").Rows

    '......

next

Dim dr As DataRow = DataTables("告知内容").AddNew()

改成

Dim dr As DataRow = DataTables("告知内容").find("信息内容 = '" & br("信息内容") & "'")

If dr is Nothing Then

    dr = DataTables("告知内容").AddNew()

End If

Dim dr As DataRow = DataTables("告知内容").find("信息内容 = '" & br("信息内容") & "'and 操作单位 = '" & _usergroup & "' and 姓名 = '" & vals(i) & "'")