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

Dim tb As Table = tables("档案管理")

if tb.Current isnot nothing
    Dim dr As DataRow = tb.Current.datarow
    dr("档号") = e.Form.Controls("TextBox_档案号").value
    tb.datatable.save()

end if