- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 谁能帮忙把附件中明细转成格式的样式，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30641)
-- 发布时间：2013/4/1 13:56:00
-- 谁能帮忙把附件中明细转成格式的样式，谢谢
谁能帮忙把附件中明细转成格式的样式，谢谢
步骤：首先按照明细表的内容导入进去,再转换程格式表，然后导出来使用，谢谢，狐爸看看，高手们看看，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表.rar |
-- 发布时间：2013/4/1 15:39:00
--
我想要一些功能：生成表以后，如果销量列为0时，删除为0的数据，同时月份列取值显示为这个月的月份，同时分公司列进行排序操作，这个怎么写？
导入数据时最好用代码导入，关闭窗体时，清空当前操作的数据，下次打开还是干净的系统
-- 发布时间：2013/4/1 16:17:00
--
帮忙看看，现在没有一点头绪了
-- 发布时间：2013/4/1 16:53:00
--
DataTables("格式").DataRows.Clear()
For Each r As Row In Tables("第1页").Rows
For Each c As Col In Tables("第1页").Cols
If c.Name.Contains("公司") AndAlso r(c.Name) > 0 Then
Dim dr As DataRow = DataTables("格式").AddNew
dr("分公司") = c.Name
dr("产品型号") = r("规格/型号") & r("屏幕")
dr("销量") = r(c.Name)
dr("月份") = Date.Today.month
End If
Next
Next
MainTable = Tables("格式")
-- 发布时间：2013/4/1 18:04:00
--
丢数据啊，丢很多
-- 发布时间：2013/4/1 18:06:00
--
你不是不要为0的了吗？
-- 发布时间：2013/4/1 20:40:00
--
是不要0和负数，但是总和数值也不对
-- 发布时间：2013/4/2 7:47:00
--
还是找不到是什么原因导致的数据丢失，郁闷啊
-- 发布时间：2013/4/2 8:47:00
--
我提供一个数据，总数是1091409，但是生成以后的数据总和就变了，编程1061***了，丢了3万多，狐爸帮忙再查查，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:总数1091409.rar |
-- 发布时间：2013/4/2 9:35:00
--
用下面的代码得到结果，然后手工检查一下那些数据漏掉了：
DataTables("格式").DataRows.Clear()
For Each r As DataRow In DataTables("第1页").dataRows
For Each c As DataCol In DataTables("第1页").dataCols
Select Case c.name
Case "功能","规格/型号","屏幕"
Case Else
Dim dr As DataRow = DataTables("格式").AddNew
dr("分公司") = c.Name
dr("产品型号") = r("规格/型号")
dr("销量") = r(c.Name)
dr("月份") = Date.Today.month
End Select
Next
Next
MainTable = Tables("格式")
然后我们帮你分析一下，为啥这些数据会漏掉。