主题：请教代码

老大，你问过啊

Dim drs As List(Of DataRow) = DataTables("表a").Select("", "第一列")
Dim tj1, tj2 As Boolean
Dim ls As New List(Of String)
For i As Integer = 0 To drs.count - 1
    Dim dr As DataRow = drs(i)
    If i > 0 AndAlso dr("第一列") <> drs(i-1)("第一列") Then
        If tj1 AndAlso tj2 Then
            ls.add(drs(i-1)("第一列"))
            output.show(drs(i-1)("第一列"))
        End If
        tj1 = False
        tj2 = False
    End If
    If dr("第二列") = "m" Then
        tj1 = True
    End If
    If dr("第三列") = "d" Then
        tj2 = True
    End If
Next
If tj1 AndAlso tj2 Then
    ls.add(drs(drs.count-1)("第一列"))
    output.show(drs(drs.count-1)("第一列"))
End If

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71865&authorid=0&page=0&star=1