|
Dim s1 As List(of String) = DataTables("学生互评表").SQLGetValues("标签一","[学号] = '" & xuehao.text & "' And [姓名] = '" & name.text & "' And [学年] = '" & xuen.value & "'","操作时间")
Dim s2 As List(of String) = DataTables("学生互评表").SQLGetValues("标签二","[学号] = '" & xuehao.text & "' And [姓名] = '" & name.text & "' And [学年] = '" & xuen.value & "'","操作时间")
For Each s As String In s2
If s1.Contains(s) = False Then
s1.Add(s)
End If
Next
|
加好友 
发短信
Post By：2019/4/1 11:06:00 [显示全部帖子]
