Dim t1 As Table = Tables("窗口1_Table1")
Dim sql,s1,s2 As String
s1=Format(Date.Today.AddMonths(-1),"yyyyMM")
s2=Format(Date.Today,"yyyyMM")
sql ="Select * from{表A} where 日期 ='" & s1 & "'"
Dim v1 As List(of String) = DataTables("表A").GetUniqueValues("日期 = '" & s2 & "'","客户")
t1.StopRedraw
t1.FILL(SQL,"",True)
For Each r As Row In t1.Rows
If v1.Contains(r("客户")) Then
r("客户") = "Del"
End If
Next
t1.DataTable.DeleteFor("客户 = 'Del'")
t1.ResumeRedraw
加好友 
发短信
Post By：2013/6/26 16:16:00 [只看该作者]
