Dim
msg
As
String = e.Message
Dim
ret
As
String
If
e.Message.StartsWith("#")
AndAlso
e.Message.EndsWith("#")
'假定收到的信息头尾都是"#",表示统计指定产品的销量
msg = msg.Trim("#")
msg = msg.Replace("#","','")
Dim
b
As
New
GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("产品")
b.Totals.AddDef("数量")
b.Filter =
"产品
in ('"
&
msg
&
"')"
Dim
dt
As
DataTable
= b.Build(True)
For
Each
dr
As
DataRow
In
dt.DataRows
If
ret
> ""then
ret =
ret
&
vbcrlf
End
If
ret = ret
&
dr("产品")
&
vbtab
&
dr("数量")
Next
e.ReturnValue
= ret
End
If
上面时udp示例的代码，能否帮我给每一行都注释一下，谢谢了
加好友 
发短信
Post By：2019/10/17 20:05:00 [只看该作者]
