主题：[求助]给我一个思路就行，方向比努力更重要。

我想做一个标签打印窗口，最终效果如下：

http://pan.baidu.com/s/1nvPtnBF

输入数据：

数量，

重量，

类别A（类别B可选，选中就打印，不选中就不打印），

编码C，

总数（不在最终打印界面显示），

 

 

公式计算：

同一个编码C下，编码DE的总数为0000-9999，每一张标签的编码DE由数量决定。例如数量=100，编码DE就是0000-0099，0100-0199，以此类推。最终编码DE由总数决定，例如：总数等于3600.那么编码DE最后一张标签就是3500-3599.当编码C不变的情况下，类别或是数量等发生变化，编码DE接上一个最终数量。比如现在 王五家的  桃子 数量200个  总数1000，那么编码DE为3600-3799，3800-3999以此类推直到4400-4599.

 

 

我现在的问题是：

1、做这样一个系统，该怎么选择？应该用报表设计？还是piao据打印？还是标签打印？

2、公式计算 这一步 实现思路是什么？没有编程基础。

 

 

打印用专业报表做个标签就可以了  

帮助文件里，专业报表里的标签打印。是从数据库里调用已确定的字段。那么现在。我要做一个录入窗口，一次添加需要生成多行数据到数据表中（我只会录入一行），然后，再从数据表提取数据打印标签。怎么录入多行？在数据表进行编码DE的公式计算可行不？

 你要做一个表，记录信息，表名叫做【标签】

 

【数量】【重量】【类别】 【编码】 【总数】

 

    100      10       A、B      bh        200

    200      60       A、B      bh        400

 

然后根据这个表，每一行的信息都能拿出来了，写成循环即可

 

Dim sl As Integer = 200
For i As Integer = 200 To 800-1 Step sl
    Dim bh1 As String = Format(i, "0000")
    Dim bh2 As String = Format(i+sl-1, "0000")
    msgbox(bh1 & "-" & bh2)
Next

 

公式里  步长好理解。现在是怎么确定编码DE，比如，第2行的D肯定是第1行的总数，第2行的E 是第1行的总数+第2行的总数。也就是For i As Integer = 200 To 800-1 Step sl，当在第2行数据打印时，200 应该就是第1行的总数，800应该就是第1行的总数+第2行的总数。以此类推。

Dim t As Table = Tables("表A")
Dim r As Row = t.rows(1) '第二行

Dim sl As Integer = r("数量")
Dim ks As Integer = 0
For i As Integer = 0 To r.Index-1
    ks = ks + t.Rows(i)("总数")
Next
msgbox(ks)
For i As Integer = ks To ks+r("总数")-1 Step sl
    Dim bh1 As String = Format(i, "0000")
    Dim bh2 As String = Format(i+sl-1, "0000")
    msgbox(bh1 & "-" & bh2)
Next