Dim drs As List(Of DataRow)
Dim dr As DataRow
Dim nm As Byte
Pt = DataTables("易途").GetValues("姓名","[日期] >= #1/1/2017#")
Pt1 = DataTables("客服目标").GetValues("姓名","[日期] >= #1/1/2017#")
For Each pts As String In pt
If pt1.Contains(pts)= False Then
drs = DataTables("易途").Select("[姓名] = '" & pts & "' And [日期]= #1/1/2017#")
For Each drs1 As DataRow In drs
dr = DataTables("订单组合1").AddNew
dr("姓名")=drs1("姓名")
dr("日期")=drs1("日期")
Next
End If
Next
老师帮我看看有底纹和颜色为红色的代码有问题吗?怎么这段代码不会执行