主题：[求助]查询、打开窗口、赋值问题

这种问题，你交代得清清楚楚，通常应该自己写一下，至少知道自己哪里不会：

If e.Sender.Checked = True Then
    Dim r As Row = Tables("基本情况").current
    Dim dr As DataRow
    dr = DataTables("家族史").Find("姓名 = '" & r("姓名") & " And 性别 = " &  r("性别") & " And 出生日期 = #" & r("出生日期") & "# And ID号 = " & r("ID号"))
    If dr Is Nothing Then
        If MessageBox.Show("是否在家族史添加记录","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            Dim r2 As Row = Tables("家族史").AddNew
            r2("姓名") = r("姓名")
            r2("性别") = r("性别")
            r2("出生日期") = r("出生日期")
            r2("ID号") = r("ID号")
            Forms("窗口4").Open()
        End If
    Else
        If MessageBox.Show("家族史中存在 条相同记录,是否打开","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            Tables("家族史").Position = Tables("家族史").FindRow(dr)
            Forms("窗口4").Open()
        End If
    End If
End If