DataColChanged的代码一定要加入 列名判断.绝对不可以没有
if e.datacol.name ="设备名称" then
Dim a As Integer = Rand.Next(3,60)
Dim s5 As String = a
If e.DataRow("设备名称") ="无机房客梯" Or e.DataRow("设备名称") ="无机房货梯" Then
e.DataRow("紧急电动") ="/"
e.DataRow("共用机房") ="/"
e.DataRow("机房结果") ="/"
e.DataRow("机房结论") ="/"
e.DataRow("机房门高") ="/"
e.DataRow("机房门宽") ="/"
e.DataRow("直梯梯高") ="/"
e.DataRow("直梯通道高") ="/"
e.DataRow("直梯梯夹角") ="/"
e.DataRow("机房高度差") ="/"
e.DataRow("圈框") ="/"
e.DataRow("机深度") ="/"
e.DataRow("机宽度") ="/"
e.DataRow("机高度") ="/"
e.DataRow("无机房结果") ="符合"
e.DataRow("无机房结论") ="合格"
End If
end if
你其余的代码,也应该根据对应情况,全部加上 列名判断
加好友 
发短信
Post By：2015/5/22 10:49:00 [显示全部帖子]
