主题：[求助]如何将下边的代码生成的数据保存,下次打开表的时候还在呢?

Select Case e.DataCol.Name

    Case "县区", "单位名称"

        If e.DataRow.IsNull("县区") = False AndAlso e.DataRow.IsNull("单位名称") = False Then

            Dim fdr As DataRow = e.DataTable.Find("县区 = '" & e.DataRow("县区") & "' and 单位名称 = '" & e.DataRow("单位名称") & "' And _Identify <> " & e.DataRow("_Identify"), "_Identify Desc")

            If fdr Is Nothing Then

                fdr = DataTables("单位基础数据").Find("县区 = '" & e.DataRow("县区") & "' and 单位名称 = '" & e.DataRow("单位名称") & "'")

                If fdr IsNot Nothing Then

                End If

            Else

                e.DataRow("已登记人数") = fdr("登记后人数")

            End If
             e.DataRow("行政编制数") = fdr("行政编制数")

        End If

End Select