主题：未将对象引用设置到对象的实例。

Dim dt As DataTable
Dim dr As DataRow
dr("档号") = e.Form.Controls("TextBox_档案号").value
datatables("档案管理").save()

上面的代码中，dr从何而来，你只是定义了一个变量，这个变量并没有指向任何实际的行。

这样改一下：

Dim dt As DataTable
Dim dr As Row = Tables("档案管理").Current
dr("档号") = e.Form.Controls("TextBox_档案号").value
datatables("档案管理").save()