在第二次上传的文件中执行一下下面的代码,大部分数据可以处理,未处理是无法区别的
'村名
Dim Arys As List(Of String()) = DataTables("单位").GetUniqueValues("", "乡名","村名")
For Each dr As DataRow In DataTables("表A").DataRows
For Each Ary As String() In Arys
If dr("乡名").Contains(Ary(0)) And dr("乡名").Contains(Ary(1)) Then
dr("村名") = Ary(1)
End If
Next
Next
'乡名
Dim Vals() As String = DataTables("单位").GetComboListString("乡名").Split("|")
For Each dr As DataRow In DataTables("表A").DataRows
For Val As Integer = 0 To Vals.Length - 1
If dr("乡名").Contains(Vals(Val)) Then
dr("乡名") = Vals(Val)
End If
Next
Next
'组别
Tables("表A").StateFilter = StateFilterEnum.Modified
For Each r As Row In Tables("表A").Rows
If r.IsNull("村名") = False Then
r("组别") = r("组别").Replace(r("乡名"),"").Replace(r("村名"),"")
Else
r("组别") = r("组别").Replace(r("乡名"),"")
End If
Next
Tables("表A").StateFilter = StateFilterEnum.UnChanged
MessageBox.Show("显示的数据没有进行处理")