楼主,你描述的不够详细,其他还有别的条件你自己加上,试试吧 :
Dim s As String = DataTables("展开表录入").GetComboListString("主干")
Dim n As Integer
Dim lm As String
Dim dt As DataTable = DataTables("展开表录入")
Dim drs As List(Of DataRow)
For i As Integer = 0 To s.split("|").length -1
drs = dt.Select("[主干] = '" & s.split("|")(i) & "' and [是否为可能原因] = 'yes' ")
If n < drs.count
n = drs.count
End If
If drs.count > 0
lm = lm & s.split("|")(i) & "|"
End If
Next
DataTables("异常原因").DataRows.Clear
DataTables("异常原因").addnew(n)
For i As Integer = 0 To lm.split("|").length -1
drs = dt.Select("[主干] = '" & lm.split("|")(i) & "' and [是否为可能原因] = 'yes' ")
If drs.count > 0
Dim ii As Integer = 0
For Each ddr As DataRow In drs
Tables("异常原因").Rows(ii)(lm.split("|")(i)) = ddr("原因简述")
ii = ii + 1
Next
End If
Next
[此贴子已经被作者于2015/10/31 17:43:15编辑过]