老师,以下是将wy_cpd0表所有记录 加到总表wy_cpd中,不重复加。为什么在运行时一直程序死机,二个表结构一样的
Dim Result As DialogResult
Result = MessageBox.Show("您确认要结转数据到总数据库吗? ", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
'结转电费
DataTables("wy_cpd").AllowEdit = True
For Each dr1 As Row In Tables("wy_cpd0").Rows
Dim dr2 As DataRow = DataTables("wy_cpd").find("yy= " & dr1("yy") & " and yy1=" & dr1("yy1") & " and khbh='" & dr1("khbh") & "'")
If dr2 Is Nothing Then
dr2 = DataTables("wy_cpd").AddNew()
For Each dc As DataCol In DataTables("wy_cpd0").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
Next
'保存所有表
For Each dt As DataTable In DataTables
dt.Save()
Next
MessageBox.Show("结转成功!", "提示")
End If