主题：图片列用代码批量输入地址后,有的图片不能显示

图片列的批量输入地址时,有的图片能显示,有的不能显示,如果本次调整好了,保存后再打开,又是有的不能显示了,原因不明,请看代码:我是通过随机选择图片的
Dim s As String
Dim sa,sb,sc,sd As String
For Each dr As Datarow In DataTables("表A"). Datarows()
s = Rand.Next(0,4)
sa=s & Mid("" & dr("AA") & "",1,1)&".bmp"
        dr("A") = sa
s = Rand.Next(0,4)
sb=s & Mid("" & dr("AA") & "",2,1)&".bmp"
        dr("B") = sb
s = Rand.Next(0,4)
sc=s & Mid("" & dr("AA") & "",3,1)&".bmp"
        dr("C") = sc
s = Rand.Next(0,4)
sd=s & Mid("" & dr("AA") & "",4,1)&".bmp"
        dr("D") = sd
Next