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
[此贴子已经被作者于2010-11-18 17:07:53编辑过]