Dim iii As Integer = 0
Dim dt As DataTable = DataTables("销售订单")
Dim dtb As New
DataTableBuilder("分货表")
dtb.AddDef("原料编码",
Gettype(String), 32)
For Each col As String In
dt.GetUniqueValues("", "订货单位简称")
dtb.AddDef(col, Gettype(String), 16)
Next
dtb.Build()
Dim t As Table = Tables("分货表")
MainTable = t
Dim icou As Integer =
dt.GetUniqueValues("", "原料编码").Count
StatusBar.Message1= "正在统计"
StatusBar.ProgressBar.Visible =
True
StatusBar.ProgressBar.Maximum =
icou
For Each ylbm As String In
dt.GetUniqueValues("", "原料编码")
If ylbm > "" AndAlso
CInt(ylbm) < icou + 1 Then
Dim r As Row = t.AddNew
r("原料编码") = ylbm
For i As Integer = 1 To t.Cols.Count -
1
Dim colName As String =
t.Cols(i).Name
Dim filter As String = "原料编码 =
'" & r("原料编码") & "' And 订货单位简称 = '" & colName
& "'"
Dim data As String = ""
For Each dw As String In
dt.GetUniqueValues(filter, "基本单位")
data &=
dt.Compute("Sum(数量基本单位)", filter & " And 基本单位 = '"
& dw & "'") & dw & "+"
Next
For Each dw As String In
dt.GetUniqueValues(filter, "订货包装单位")
data &=
dt.Compute("Sum(数量包装单位)", filter & " And 订货包装单位 = '"
& dw & "'") & dw & "+"
Next
r(colName) =
data.Trim("+")
Next
iii = iii + 1
StatusBar.ProgressBar.Value = iii
StatusBar.Message2 = "正在处理第"
& iii & "条数据"
Application.DoEvents
End If
Next
StatusBar.Message2 = "已经处理完毕,总共处理了" &
iii & "条数据"
StatusBar.ProgressBar.Value = icou
1，不想要“数量基本单位”与“基本单位”的合并。只想要“数量包装单位”的合计值与单位合并。由于订单的复杂性，同一家客户在订购同一商品时会使用不同的“订货包装单位”及3斤+2个，加上补订单，就会出现几行订单，分别是3斤，5斤，2个，5个，我要做的就是求得8斤+7个【（3+5）斤；（2+5）个】，用于分货。包装单位存在“订货包装单位”，该单位的数量存在“数量包装单位”
2，“数量基本单位（这是数量，如5）”与“基本单位（是标准单位，一般是斤）”是将这些不同的计量单位按照转换率转换为标准单位后的数量及其标准单位。由于转换率仅仅是参考值，只能用于采购的大致换算。分货是按照订单的计量单位合计数来分，在按计量为基本单位收钱。
3，感觉老师是把上述两个合并了。
4，分货表的纵坐标应该是“商品名称”，我用它替换“原料代码”再运行也不行，看来这个瓢不好画呀。由于客户是多个总公司（下有分公司），我想做成多个按钮，因此，这个分货表就需要加上总公司的选择条件。好像你先前给我的那个“公司一”“公司二”这样的选择。
5，分货组号与商品名称并列为纵坐标，它是商品的属性。
加好友 
发短信
Post By：2013/4/7 17:58:00 [显示全部帖子]
