-- 作者:feng1999
-- 发布时间:2017/3/2 11:31:00
-- [求助] 第二段代码不执行
请老师帮忙看下下面代码有什么问题,为啥第二段代码不执行?谢谢 For s As Integer =1 To 10 if DataTables("压敏电阻检验记录").DataRows(1).IsNULL("贴片_本体长") then
sheet(56,4+2*s).value =nums2(Rand.Next(count))
sheet(57,4+2*s).value =nums3(Rand.Next(count))
sheet(58,4+2*s).value =nums4(Rand.Next(count)) sheet(59,4+2*s).value =nothing sheet(60,4+2*s).value =nothing
sheet(61,4+2*s).value =nothing else sheet(56,4+2*s).value =nothing sheet(57,4+2*s).value =nohting
sheet(58,4+2*s).value =nothing
sheet(59,4+2*s).value =nums5(Rand.Next(count))
sheet(60,4+2*s).value =nums6(Rand.Next(count))
sheet(61,4+2*s).value =nums7(Rand.Next(count)) end if
Next
|