主题：简化代码及窗口时间框问题

 老师们：1、给看看这段代码，有没有简单的写法。

If User.Name = "开发者" Then

  Dim t As Table = Tables("制造质量管理")

  Dim cr = t.Current

  Dim nr As Row = t.AddNew

  If t.Current Is Nothing OrElse t.Current.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("调试工")

    Forms("车型信息输入").Show()'打开校核窗口

End If

If User.IsRole("工检4") Then'如果登陆者角色为工序检验岗4

  Dim t As Table = Tables("制造质量管理_Table1")

  Dim cr = t.Current

  Dim nr As Row = t.AddNew

  If t.Current Is Nothing OrElse t.Current.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("状态") = "报工"

End If

    Forms("车型信息输入").Show()'打开校核窗口

If User.IsRole("终检") Then'如果登陆者角色为终检

  Dim t As Table = Tables("制造质量管理_Table1")

  Dim cr = t.Current

  Dim nr As Row = t.AddNew

  If t.Current Is Nothing OrElse t.Current.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("状态") = "入库"

End If

 

2、在窗口中插入一个DateTimePicker1框，怎样在打开窗口时框内的日期值为当月的第一天？

 

谢谢老师、大咖们！

1、

老师：

    第二个已解决。

   但第一个运行后不对。因为在判断时，如果登陆者角色为：工检4， nr("状态") = "报工"；如果是终检，nr("状态") = "入库"，如果是开发者，没有这一行。

老师：你受累！

谢谢蓝老师！