主题：[求助]后台数据库修改代码出错（已解决）

看不懂你要做什么，删除行这样写

If Connections.Contains("SCZD") = True Then
    Dim cmd1 As New SQLCommand
    cmd1.ConnectionName = "SCZD"
    cmd1.CommandText = "Select * Fro m {器材清单}"
    Dim dt1 As DataTable = cmd1.ExecuteReader(True)
    For Each dr As DataRow In DataTables("器材清单").DataRows
        If dr.IsNull("器材编号") = False Then
            Dim pr As DataRow = dt1.Find("器材编号 = '" & dr("器材编号") & "'")
            If pr IsNot Nothing And dr("操作信息_时间") <> pr("操作信息_时间") Then
                pr.delete
            End If
        End If
    Next
    dt1.save
End If

新增行也不需要这样。你直接新增，如

Dim ndr As DataRow = dt1.AddNew

For Each dc As DataCol in dt1.DataCols

    ndr(dc.name) = dr(dc.name)

Next

dt1.Save