做一个按钮，执行代码，就能统计了。
Dim cs() As String = {"中午正餐ABC类_菜1", "中午正餐ABC类_菜2", "中午正餐ABC类_菜3", "下午简餐D类"}
Dim dic_count As new Dictionary(of String, Integer)
Dim dt As DataTable = DataTables("点餐表2")
For Each dr As DataRow In dt.DataRows
For Each cname As String In cs
If dr.IsNull(cname) = False Then
If dic_count.ContainsKey(dr(cname)) = False Then
dic_count.Add(dr(cname), 1)
Else
dic_count(dr(cname)) = dic_count(dr(cname))+1
End If
End If
Next
Next
dt = DataTables("菜单")
For Each dr As DataRow In dt.DataRows
If dic_count.ContainsKey(dr("菜名代码")) Then
dr("数量") = dic_count(dr("菜名代码"))
End If
Next
加好友 
发短信
Post By：2013/11/28 19:24:00 [显示全部帖子]
