Dim DtGroup As DataTable = DataTables("表1")For Each dr As DataRow In dt.Select(“[字段1] = 朋友” ,"Val([字段2])")
output.show( 字段1 & “是" & 字段2 & “年认识的”)
这里
For Each dr As DataRow In dt.Select(“[字段1] = ‘朋友’” ,"Val([字段2])")