Dim id As Integer = DataTables("表A").Compute("Max(_Identify)")Dim Filter As String = "月份 = 2 and 身份证号 not in ('" & DataTables("表a").GetComboListString("身份证号").replace("|", "','") & "')"DataTables("表A").AppendLoad(Filter, False)