Dim t As Table
Dim status As String
If User.Name = "开发者" Then
t = Tables("制造质量管理")
ElseIf User.IsRole("工检4") Then
t = Tables("制造质量管理_Table1")
status = "报工"
ElseIf User.IsRole("终检") Then'如果登陆者角色为工序检验岗4
status = "入库"
t = Tables("制造质量管理_Table1")
End If
Dim cr = t.Current
Dim nr As Row = t.AddNew
If cr Is Nothing OrElse cr.Index = t.Rows.count-1 Then
nr.move(cr.Index+1)
End If
nr("日期") = Date.Today
nr("编号") = cr("编号")
nr("代号") = cr("代号")
nr("底盘号") = cr("底盘号")
nr("发动机号") = cr("发动机号")
nr("气柜") = cr("气柜")
nr("驾驶") = cr("驾驶")
nr("室颜色") = cr("室颜色")
nr("序号") = cr("序号") + 1
nr("检验岗") = User.Roles
nr("检验员") = User.Name
nr("调试工") = cr("调试工")
nr("状态") = status
Forms("车型信息输入").Show()'打开校核窗口
加好友 
发短信
Post By：2018/4/29 14:24:00 [显示全部帖子]
