- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教统计问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43066)
-- 发布时间：2013/11/28 19:00:00
-- 请教统计问题
请教各位老师：
附件中项目这种情况如何统计各种“菜名”的数量？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:点餐test.zip |
[此贴子已经被作者于2013-11-28 19:16:58编辑过]
-- 发布时间：2013/11/28 19:24:00
--
做一个按钮，执行代码，就能统计了。
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
-- 发布时间：2013/11/28 20:25:00
--
谢谢指教！
补充问题：
如何实现 选择逻辑列 A 或 B 或 C （只能单选）和D 在点餐表中输入数字 1.2.3...能变成A1.A2.A3...
-- 发布时间：2013/11/28 20:44:00
--
你再做一个例子上来吧，看不到你的图。
-- 发布时间：2013/11/28 20:52:00
--
请看附件，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:点餐test2.zip |
-- 发布时间：2013/11/28 21:22:00
--
如下例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:点餐test.foxdb |
-- 发布时间：2013/11/28 21:28:00
--
版本过高...
-- 发布时间：2013/11/28 21:31:00
--
你升级一下你的foxtable。