主题：[求助]根据集合判断增加行

Dim dq As Date = Date.Today.AddDays(htDate)
Dim jh3 As List(Of String)
jh3 = DataTables("主合同").SQLGetValues("合同编号","(应收费日期 <= '" & dq & "' or 合同结束日期 <= '" & dq & "') And (已终止 = 0 Or 已终止 Is null)")
Dim jh4 As List(Of String)
jh4 = DataTables("短信通知").SQLGetValues("合同编号")
For Each ls1 As String In jh4
    If jh3.Contains(ls1)  Then
        jh3.Remove(ls1)
    End If
Next

Dim dd As String = " '" & String.Join("','",jh3.ToArray) & "'"
Output.show(dd)
For Each dr1 As DataRow In DataTables("主合同").Select("合同编号 In ('" & String.Join("','",jh3.ToArray) & "')")
    Dim r2 As Row = Tables("短信通知").AddNew
    r2("合同编号") = dr1("合同编号")
    Next
Tables("短信通知").Save()

经测试，“dd”能够正常显示。但是程序没有增加行。请老师帮忙看看，我哪里出错了，谢谢！