主题：[求助]通过代码增加行

        If s="家庭生活环境史" Then

            Dim Multi As String = "父亲|母亲"

            Dim Values() As String

            Values = Multi.split("|")

            For Index As Integer = 0 To Values.Length - 1

                Dim r As Row =Tables(s1).AddNew()

                r("patientsID")=txt

                r("访问日期")=Date.Today

                r("父母_关系") = Values(Index)

            Next

 If s="家庭生活环境史" Then

            Dim str As String = "父亲|母亲"

            For Each str1 As String In str.split("|")

                If DataTables(s).Find("[父母_关系]= '" & str1 & "'" And "[patientsID]= '" & txt & "'") Is Nothing Then

                    Dim nr = DataTables(s).AddNew

                    nr("patientsID")=txt

                    nr("访问日期")=Date.Today

                    nr("父母_关系") = str1

                End If

            Next