if e.sender.text = "增加"
Tables("xxx").AddNew()
e.Sender.Text = "保存"
Else
Tables("xxx").Current.Save()
e.Sender.Text = "增加"
End if
加好友 
发短信
Post By：2011/8/30 11:35:00 [显示全部帖子]
