主题：点击新增按钮，怎么把最近添加的数据放到form上

Dim fdr As DataRow = DataTables("表A").find("", "_Identify desc")

Dim ndr As DataRow = DataTables("表A").AddNew()
If fdr IsNot Nothing Then
    For Each dc As DataCol In DataTables("表A").DataCols
        ndr(dc.Name) = fdr(dc.name)
    Next
End If