Dim Result As DialogResultResult = MessageBox.Show("要修改吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)If Result = DialogResult.Yes Then
Tables("VentorInvoice").AllowEdit = True
End If
加好友 
发短信
Post By：2013/8/16 22:34:00 [显示全部帖子]
