谁能帮忙把附件中明细转成格式的样式，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁能帮忙把附件中明细转成格式的样式，谢谢

共有6684人关注过本帖树形打印复制链接主题：谁能帮忙把附件中明细转成格式的样式，谢谢

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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("格式")

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/4/1 18:06:00 [显示全部帖子]

你不是不要为0的了吗？

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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("格式")

然后我们帮你分析一下，为啥这些数据会漏掉。

[此贴子已经被作者于2013-4-2 9:38:05编辑过]

下一主题 >> << 上一主题

主题：谁能帮忙把附件中明细转成格式的样式，谢谢