Dim n As String = CurrentTable.DataTable.name
Select n
Case "工位912"
If user.name = "组装" OrElse user.name = "开发者" OrElse user.group = "品质" OrElse user.group = "行政"
For Each dr As Row In Tables("工位912").Rows
If dr("JPK") = "NO JPK"
Else
If dr("工位") <> "944"
If dr("操作员") = Nothing
dr("操作员") = "207"
dr("生产日期") = Date.Today
End If
End If
End If
Next
DataTables("工位912").Save
End If
End Select
上述代码执行完之后,好像不会自动保存,也就是说红色那句代码没有起作用,请问为什么?