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

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

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

aduydgd

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

加好友

发短信

等级：三尾狐帖子：681 积分：5332 威望：0 精华：0 注册：2011/12/26 20:43:00

谁能帮忙把附件中明细转成格式的样式，谢谢 发帖心情

Post By：2013/4/1 13:56:00 [只看该作者]

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

步骤：首先按照明细表的内容导入进去,再转换程格式表，然后导出来使用，谢谢，狐爸看看，高手们看看，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表.rar

[此贴子已经被作者于2013-4-1 13:57:51编辑过]

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/1 14:23:00 [只看该作者] 用户已被锁定

aduydgd

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

加好友

发短信

等级：三尾狐帖子：681 积分：5332 威望：0 精华：0 注册：2011/12/26 20:43:00

Post By：2013/4/1 15:39:00 [只看该作者]

我想要一些功能：生成表以后，如果销量列为0时，删除为0的数据，同时月份列取值显示为这个月的月份，同时分公司列进行排序操作，这个怎么写？

导入数据时最好用代码导入，关闭窗体时，清空当前操作的数据，下次打开还是干净的系统

aduydgd

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

加好友

发短信

等级：三尾狐帖子：681 积分：5332 威望：0 精华：0 注册：2011/12/26 20:43:00

Post By：2013/4/1 16:17:00 [只看该作者]

帮忙看看，现在没有一点头绪了

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：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("格式")