主题：输入

哦,谢谢！

每28行一个循环，第2至28行的只有第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的

 代码大概这样。

For Each r As Row In Tables("表A").Rows
    Dim fr As Row
    If r.Index Mod 28 = 0 Then
        fr = r
    Else
        For Each c As Col In Tables("表A").Cols
            Select Case c.Index + 1
                Case 9, 10, 11, 12, 13, 14
                   
                Case Else
                    r(c.Name) = fr(c.Name)
            End Select
        Next
    End If
Next

林老师，谢谢您！

成功啦！我下班了我很开心（第一件事打开 Foxtable 软件，网站，视频），因为Foxtable的软件，团队，文化支配着我，谢谢，林老师

林老师：用数字列成功，为什么我替换不成功

加上引号 "xxx"

列名加上双引号有试过，不成功

你好！

项目事件

 

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

检查一下你的“生成流程”列的类型。