If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then For Each s As String In DataTables("表B").DataRows(0)("第一列").Split(",") '取标准。 For Each s1 As String In e.DataRow(e.DataCol).Split(",") If s = s1 Then e.DataRow("第二列") = "OK" Exit For End If Next Next End If