Dim tt() As Byte
Dim ss() As Byte
tt = adoact.Fields(1).Value
ss = adoact.Fields(2).Value
AdoRst.AddNew
AdoRst.Fields(0).Value = i
AdoRst.Fields(1).Value = tt
AdoRst.Fields(2).Value = ss
AdoRst.Update
文本方式查看只有几个字符:

16进制方式查看:

用户评论