最简单，你可以用table控件显示。
每接收都数据，就addnew一行数据，不就好了？
DataReceived 事件
dim t as table = tables("表A")
dim nr as row = t.addnew
nr("日期") = date.now
nr("数据") = e.Port.ReadExisting()
加好友 
发短信
Post By：2017/12/1 10:22:00 [显示全部帖子]
