标题：更新数据问题

1楼

lrh9537 发表于：2025/1/24 16:37:00

Dim Cols1() As String = {"乡镇", "行政村", "总计"}

Dim Cols2() As String = {"乡镇", "行政村", "总计"}

For Each dr1 As DataRow In DataTables("分村统计表").Select("[乡镇] IS NOT NULL")

Dim dr2 As DataRow = DataTables("分村统计表2").AddNew()

For i As Integer = 0 To Cols1.Length - 1

dr2(Cols2(i)) = dr1(Cols1(i))

修改为：如“分村统计表2”中已存在“乡镇", "行政村", "总计”，保持“分村统计表2”中的“乡镇", "行政村"不变也不新增，只更新表中的其他数据

2楼

有点蓝 发表于：2025/1/24 16:50:00

……

For Each dr1 As DataRow In DataTables("分村统计表").Select("[乡镇] IS NOT NULL")

Dim dr2 As DataRow = DataTables("分村统计表2").find(“乡镇='" & dr1("乡镇") & "' and 行政村='" & dr1("行政村") & "')

if dr2 is nothing then dr2 = DataTables("分村统计表2").AddNew()

For i As Integer = 0 To Cols1.Length - 1

dr2(Cols2(i)) = dr1(Cols1(i))

……

共2 条记录, 每页显示 10 条, 页签: [1]