textchanged事件写代码如
Dim r1 = tables("表1").current
Dim r2 = tables("表2").current
Dim r3 = tables("表3").current
r1("第一列") = e.sender.text
r2("第一列") = e.sender.text
r3("第一列") = e.sender.text
加好友 
发短信
Post By：2018/9/21 15:41:00 [显示全部帖子]
