_btntreturn_Click
With Tables("基本信息")
If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
MainTable = Tables("导航")
Vars("_BtnSFBS")="导航"
Forms("共有窗口").Controls("NavBar1").SelectedIndex = 0
Else
MessageBox.Show("请先保存信息再返回!.","提示")
Return
End If
End With