DataTables("组合统计表").DeleteFor("")
For Each r As Row In Tables("资料表").Rows
Dim s As String = r("组合")
Dim lst As new List(of String)
Dim m As String = s(0)
For i As Integer = 1 To s.Length - 1
If Char.IsDigit(s(i)) Then
m = m & s(i)
'lst.Add(m)
If m > ""
lst.Add(m)
End If
m = ""
ElseIf m > ""
'lst.Add(m)
If m > ""
lst.Add(m)
End If
m = s(i)
Else
m = s(i)
End If
Next
'lst.Add(m)
If m > ""
lst.Add(m)
End If
Dim 面积 As Integer = r("面积")
Dim dr As DataRow
For i As Integer = 0 To lst.Count - 1
Dim s1 As String = lst(i)
dr = DataTables("组合统计表").AddNew
dr("组合名称") = s1
dr("说明") = s
Dim dr2 As DataRow = DataTables("组合表").Find("组合='" & s1 & "'")
Dim 克重 As Integer = 0
If dr2 IsNot Nothing Then
克重 = dr2("克重")
End If
If i Mod 2 = 0 Then
dr("重量") = 面积 * 克重
Else
dr2 = DataTables("类型表").Find("类型='" & s1 & "'")
Dim 系数 As Double = 0
If dr2 IsNot Nothing Then
系数 = dr2("系数")
End If
dr("重量") = 面积 * 系数 * 克重
End If
Next
Next
都 改还一样，问题还是存在
加好友 
发短信
Post By：2021/4/20 16:54:00 [只看该作者]
