- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]客商表编码问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62550)
-- 发布时间：2015/1/4 13:16:00
-- [求助]客商表编码问题？
如果我设计了一个客商表（里面既有客户、又有供应商，目的也是为了避免重复），客户编码为：KH001、KH002等，供应商编码为：GYS001、GYS002等。这种情况，在增加供应商或客户时应该如何控制？
-- 发布时间：2015/1/4 14:40:00
--
往datarowadding事件写代码，类似
Dim bh As String="KH"
Dim max As String
Dim idx As Integer
max = DataTables("表A").Compute("Max(第一列)","第一列 like \'" & bh & "%\'")
If max > "" Then \'如果存在最大销售单号
idx = CInt(max.Substring(bh.Length+1)) + 1 \'获得最大销售单号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("第一列") = bh & Format(idx,"000")
bh = "GYS"
max = DataTables("表A").Compute("Max(第二列)","第二列 like \'" & bh & "%\'")
If max > "" Then \'如果存在最大销售单号
idx = CInt(max.Substring(bh.Length+1)) + 1 \'获得最大销售单号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("第二列") = bh & Format(idx,"000")
-- 发布时间：2015/1/4 16:19:00
--
谢谢甜版，又解了我一个大麻烦。
-- 发布时间：2015/1/4 16:30:00
--
甜版，再帮我看一看这个表如何实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计日报表.xls |
说明：按煤场汇总部分都已经实现了，没有太大问题。主要问题就在移库这一块。我是把移库作为一个客商来管理的，如果和其他客商按煤场汇总也没有问题。但我们的表是单独列出来的，就像传的上述格式一样，像这种情况，应该怎么办呢？
-- 发布时间：2015/1/4 16:34:00
--
有什么问题？场地写成 移库、往来单位 赋值 对应的单位即可
-- 发布时间：2015/1/4 16:36:00
--
你是要生成这样的Excel报表?
-- 发布时间：2015/1/4 16:51:00
--
是的，生成这样的日报表
-- 发布时间：2015/1/4 16:56:00
--
以下是引用bigeng在2015-1-4 16:51:00的发言：
是的，生成这样的日报表
是的，生成这样的日报表
用分组报表即可，即是用 场地 分组
http://www.foxtable.com/help/topics/1542.htm
-- 发布时间：2015/1/4 16:59:00
--
移库平时是当做一个客商来登记数据的，比如从东煤场出库多少，西煤场入库多少。
在这张表里面，按煤场汇总不体现移库的数据，而是单独把移库列出来，统计每天各个煤场进出情况。现在的问题是如果能够自动生成报表，能够把移库这部分给剥离出来单独列示。
-- 发布时间：2015/1/4 17:03:00
--
得出报表以后，在把移库的数据数据填充进去即可。
http://www.foxtable.com/help/topics/0680.htm