如题,代码如下:
For x As Integer = 2 To 12
For Each r As Row In tb.Rows
cl = sheet(x,0).value
lx = sheet(x,2).value
ys = sheet(x,3).value
If cl <> "" Then
filter = "r(""材料"") = """ & cl & """"
End If
If lx <> "" Then
filter = filter & " AndAlso r(""类型"") = """ & lx & """"
End If
If ys <> "" Then
filter = filter & " AndAlso r(""钥匙"").contains(""" & ys & """)"
End If
filter = filter.TrimStart(" ","A","n","d","l","s","o")
If filter Then
'If r("材料") = cl AndAlso r("类型") = lx AndAlso r("钥匙").contains(ys) Then
For i As Integer = 4 To tb.Cols.Count -1
If r.Isnull(i) = False Then
If sheet(x,i+2).value <> "" Then
sheet(x,i+2).value = sheet(x,i+2).value + r(i)
Else
sheet(x,i+2).value = r(i)
End If
End If
Next
End If
Next
Next
老师,我想根据cl,lx,ys是否是空值来控制if的条件,请问该怎么改??