最好上例子测试
Dim i As Integer = DataTables("订单数量明细").GetValues("规格", filter ,"规格 desc").Count
Dim j As Integer = DataTables("订单数量明细").GetValues("颜色", filter,"_Identify").Count
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
Else
Dim dr As String = e.Form.Controls("Ts_" & l & "_" & k).text
Dim dr2 As String = e.Form.Controls("Tg_" & k).text
Dim dr3 As String = e.Form.Controls("Tsy_" & l).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
Next
r("颜色") = e.Form.Controls("Tsy_" & l).Value
r("规格") = e.Form.Controls("Tg_" & k).Value
r("数量") = e.Form.Controls("Ts_" & l & "_" & k).Value
End If
End If
Next
Next
加好友 
发短信
Post By：2016/11/21 20:57:00 [显示全部帖子]
