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

用Excel一下子就可以处理

只好用筛选——下拉列表更改——重复填充，谢谢了！

这次乡名列乡名是完整的

 

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

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

 

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

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

乡名列完整的话，可否这样：

 

按钮代码：

 

For Each dr As DataRow In DataTables("表A").Select("[组别] Is Not Null")
    dr("组别") = dr("组别").SubString(dr("组别").LastIndexOf("村")+1)
    dr("村名") = dr("村名").SubString(dr("村名").LastIndexOf("乡")+1).Replace(dr("组别"),Nothing)
    dr("乡名") = dr("乡名").Replace(dr("村名") & dr("组别"),Nothing).Replace("乡",Nothing)
Next

如果觉得困难,现在EXECL处理一下,在导入嘛.在那里面处理要简单一些.

     是我复制搞错了，原上传的文件删除。这次上传一个完整的（未批量更改），大部分数据能处理比手工更改强多了，只是速度有点慢，能否再优化一下？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码更改.table

600多万条的记录太多了，要考虑用sql语句来完成，