strHex = Join(byteRev)
Do While Len(strHex)>0
intVal = Val(Left(strHex,3))
strHex = Mid$(strHex,4)
intVal = intVal * &H100 + Val(Left(strHex,3))
strHex = Mid$(strHex,4)
Rst.AddNew
Rst!F_Value = intVal
Rst.Update
Loop
Do While Len(strHex)>0
intVal = Val(Left(strHex,3))
strHex = Mid$(strHex,4)
intVal = intVal * &H100 + Val(Left(strHex,3))
strHex = Mid$(strHex,4)
Rst.AddNew
Rst!F_Value = intVal
Rst.Update
Loop
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货