增加了一个判断条件;好像没有效果、该怎么改?
For Each r As Row In Tables("光功率登记表").rows
If e.Form.Controls("对比类型").Text = "输出光功率对比" And r.IsNull(e.Form.Controls("后期").Text) OrElse r.IsNull(e.Form.Controls("前期").Text) Then
r("对比光功率_输出光功率") = val(r(e.Form.Controls("后期").Text)) - val(r(e.Form.Controls("前期").Text))
Else
If e.Form.Controls("对比类型").Text = "输入光功率对比" And r.IsNull(e.Form.Controls("后期").Text) OrElse r.IsNull(e.Form.Controls("前期").Text) Then
r("对比光功率_输入光功率") = val(r(e.Form.Controls("后期").Text)) - val(r(e.Form.Controls("前期").Text))
End If
End If
Next
此主题相关图片如下:360截图20150114150524921.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-1/20151141525046652.jpg)