主题：代码整合问题

此主题相关图片如下：qq拼音截图未命名.png

查询修改代码
    Dim i As Integer = 1
    For Each gg As String  In DataTables("订单数量明细").GetValues("规格", filter ,"规格 desc")
        gg = e.Form.controls("Tg_" & i).Text
        i+=1
    Next
    Dim j As Integer = 1
    For Each ys As String  In DataTables("订单数量明细").GetValues("颜色", filter,"_Identify")
        ys = e.Form.controls("Tsy_" & j).Text
        j+=1
    Next
    For k As Integer = 1 To j-1
        For l As Integer = 1 To i-1
            Dim temp As String = filter & " and 颜色 = '" & e.Form.controls("Tsy_" & k).Text & "' and 规格 = '" & e.Form.controls("Tg_" & l).Text & "'"
            Dim fdr As DataRow = DataTables("订单数量明细").find(temp)
            If fdr IsNot Nothing Then
                fdr("数量") = e.Form.controls("Ts_" & k & "_" & l).Text
            End If
        Next
    Next

新增代码
For j As Integer = 1 To 7
    For i As Integer = 1 To 7
        Dim dr As String = e.Form.Controls("Ts_" & i & "_" & j).text
        Dim dr2 As String = e.Form.Controls("Tg_"  & j).text
        Dim dr3 As String = e.Form.Controls("Tsy_" & i).text
        If dr <> "" And dr2 <> "" And dr3<> ""  Then
            Dim Tea() As String ={"合同号","款号"}
            Dim r As Row = Tables("订单数量明细").AddNew
            For Each TTL As String In Tea
                r(TTL) = e.Form.Controls(TTL).text
                r("颜色") = e.Form.Controls("Tsy_" & i).Value
                r("规格") = e.Form.Controls("Tg_"  & j).Value
                r("数量") = e.Form.Controls("Ts_" & i & "_" & j).Value
            Next
        End If
    Next
Next

我现在需要把这两段代码整合起来，也就是说，当查询修改窗口里没有内容的单元格，添加后，在“订单数量明细”表里增加新的行填入相应的值