表DataColChanged代码

Select Case e.DataCol.Name  

    Case "申请编号"

        Dim nms() As String = {"商品ID","订单数量","申购人","说明","订单明细号"}

        If e.NewValue Is Nothing Then

            For Each nm As String In nms

                e.DataRow(nm) = Nothing

            Next

        Else

            Dim dr As DataRow

            dr = DataTables("合同_包材申请表").Find("[申请编号] = \'" & e.NewValue & "\'")

            If dr IsNot Nothing

                For Each nm As String In nms

                    e.DataRow(nm) = dr(nm)

                Next

            End If

        End If

End Select

For Each dt As DataTable In DataTables

    dt.Save()

For Each dt As DataTable In DataTables

    dt.Save()

速度至少可以提升一倍以上，只是不能修改即保存的功能，请教老师有什么更好方法