主题：输入

你好！

项目事件

MainTableChanged

If MainTable.Name = "任务" Then

    Forms("窗口2").open()

    CurrentTable.position = 1

    CurrentTable.position = 0

End If

计划管理

表事件

窗口表事件

窗口与控件事件

窗口2_一键录入_Click

For Each r As Row In Tables("任务").Rows

    Dim fr As Row

    If r.Index Mod 28 = 0 Then

        fr = r

    Else

        For Each c As Col In Tables("任务").Cols

            Select Case c.Index + 1

                Case "生产流程", "开始日期", "结束日期", "生产周期", "已过天数", "剩余天数", "时间进度", "测定差距", "生产进度", "剩余任务", "当日累计", "生产任务", "备注1", "提醒时间", "提醒事宜"

                Case Else

                    r(c.Name) = fr(c.Name)

            End Select

        Next

    End If

Next

此主题相关图片如下：不良对话框.jpg