主题：[求助]用代码批量更改数据

列表项目来源表贴出来看看，或搞个示例给点数据

数据录入这么不规范，提供一下乡名列表项目来源的表，这样才可以根据那个表的数据进行替换。

很难处理。

有四个村是同名的，而表A的数据中很难将这些村进行区分归纳到哪个乡。

比如登高村分别来自于道二乡和麻栗场镇两个乡，而下图的数据根本没办法区分。

 

 

此主题相关图片如下：qq截图未命名.jpg

 

不能的，身份证号区别码只到县一级。

你的原始数据也象6楼表A的样子吗？或者还有没有可以区别的列？

 

呵呵，你这次更乱套了，单位表中的乡名只有一个。

在第二次上传的文件中执行一下下面的代码，大部分数据可以处理，未处理是无法区别的

 

'村名
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("显示的数据没有进行处理")

你最好在申请表中对组别列进行排除重复值筛选，然后将筛选后的数据导出，单位表的数据全部导出（此两表导出时包括所有字段），再将文件传上来，如果能找出规律解决起来就容易了。

19楼的数据有戏的

 

For Each dr As DataRow In DataTables("申请表").DataRows
    dr("乡名") = dr("乡名").Replace("湖南省 湘西土家族苗族自治州 花垣县 ","")
Next

 

For Each dr As DataRow In DataTables("申请表").DataRows
    If dr.IsNull("乡名") = False Then
        If dr("乡名").Split(" ").Length > 1 Then
            dr("村名") = dr("乡名").Split(" ")(1)
            dr("乡名") = dr("乡名").Split(" ")(0)
        Else
            dr("村名") = dr("村名").Replace(dr("乡名"),"")
        End If
    End If
Next

楼上少写了一段

 

For Each dr As DataRow In DataTables("申请表").DataRows
    dr("乡名") = dr("乡名").Replace("湖南省 湘西土家族苗族自治州 花垣县 ","")
    If dr.IsNull("乡名") = False Then
        If dr("乡名").Split(" ").Length > 1 Then
            dr("村名") = dr("乡名").Split(" ")(1)
            dr("乡名") = dr("乡名").Split(" ")(0)
        Else
            dr("村名") = dr("村名").Replace(dr("乡名"),"")
        End If
        If dr.IsNull("组别") = False Then
            If dr("组别").Split("村名").Length > 1 Then
                dr("组别") = dr("组别").Split("村名")(1)
            End If
        End If
    End If
Next