请教老师：下面二组代码，任何一组单独使用都没问题，放在一起就显示代码错误，请老师们帮助怎么处理？
If e.DataCol.Name = "计划单编号" Then
Dim nms() As String = {"机械名称","机械编号","任务单编号"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("材料申购明细表").Find("[计划单编号] =
'" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
Dim dr
As DataRow =
e.DataRow
Select Case e.DataCol.Name
Case "单价","调拨","采购"
If e.DataRow("调整")
= False Then
dr("金额")
= dr("单价")
* (dr("调拨")
+ dr("采购"))
End If
Case "金额"
e.DataRow("调整") = dr("金额") <> dr("单价") * (dr("调拨") + dr("采购"))
End Select
Next
此主题相关图片如下：qq截图20150709222639.png
加好友 
发短信
Post By：2015/7/9 22:33:00 [显示全部帖子]
