主题：[求助]查询与赋值新增行并存的问题

你这个和查询赋值无关。具体做一个实例发上来测试，说明你要做什么。

选择了200行，填入了5个值，也就是1000行数据，测试2、3秒左右

 

Dim t1 As Table = Tables("SPM_合同清单表")
Dim mdbm As String
If InputValue(mdbm, "编码输入","可以输入多个编码,用逗号进行分隔如:1001,1005,1008") Then
    Dim Parts() As String = mdbm.Split(",")
    t1.StopRedraw
    For i As Integer = t1.TopPosition To t1.BottomPosition
        Dim r As Row = t1.Rows(i)
        For Each nm As String In Parts
            Dim dr1 As Row = t1.AddNew
            For Each c As Col In t1.Cols
                If c.name = "任务一_完成率" OrElse c.name = "部门名称" Then Continue For
                dr1(c.name) = r(c.name)
                dr1("创建人") = nm
            Next
        Next
    Next
    t1.ResumeRedraw
End If