|
Dim ary() As String = {"检查","切边","自动切边","空检","磁检","套弹簧","封油脂","组装","防锈包装","称油脂","返工","不良调试","毛边确认","气泡确认","裂开确认"}
Select Case e.DataCol.Name
Case "工程"
If e.NewValue = Nothing Then
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
Else
e.DataTable.DataCols("检查").RaiseDataColChanged(e.DataRow)
End If
Case Else
If e.DataRow.IsNull("工程") Then
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
Else
If array.IndexOf(ary, e.DataCol.Name) > -1 Then
Dim filter As String = "1=1"
For Each a As String In ary
If e.DataRow.IsNull(a) OrElse e.DataRow(a) = False Then
filter &= " and " & a.Replace("1", "") & " Is null"
Else
filter &= " and " & a.Replace("1", "") & " = '*'"
End If
Next
Dim fdr As DataRow = DataTables("工序标准").Find(filter)
If fdr IsNot Nothing Then
e.DataRow("作业标准") = fdr("标准工序")
If DataTables("标准能力").DataCols.Contains(fdr("标准工序")) Then
filter = "型号 = '" & e.DataRow("型号1") & "'"
fdr = DataTables("标准能力").Find(filter)
If fdr IsNot Nothing Then
e.DataRow("能力") = val(fdr(e.DataRow("作业标准")))
Else
e.DataRow("能力") = Nothing
End If
Else
e.DataRow("能力") = Nothing
End If
Else
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
End If
End If
End If
End Select
|
加好友 
发短信
Post By：2015/6/12 17:44:00 [显示全部帖子]
