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”能够正常显示。但是程序没有增加行。请老师帮忙看看，我哪里出错了，谢谢！

1、你【主合同】表把这些数据加载进来了没有？如果没有加载，你应该用sqlSelect查询才对；

2、执行这句代码查找一下数据，如 Tables("主合同").filter = "合同编号 in (\'123456\')"

加了"SQL”后合适了，谢谢！还是自己的基本知识不够啊！应该再好好学习一下了！