改成
If cmd.ExecuteNonQuery = 1 Then '返回1表示更改成功 If Forms("电子通信输入").Opened Then Forms("电子通信输入").Controls("combobox1").text = xm End If e.Form.CloseElse
加好友 
发短信
Post By：2019/1/8 9:13:00 [显示全部帖子]
