加上条件，即可
For Each dr As DataRow In DataTables("电池检验记录").Select("空载电压测试值 is not null and 材料代号 = '" & Tables("电池").Current("材料代号") & "'")
加好友 
发短信
Post By：2016/12/30 17:04:00 [显示全部帖子]
