主题：[求助]关于代码编制的问题

搞了半天，自动编号的问题还是没弄好，现在又说语法错误“4”运算符后缺失操作数。现在我把仓库收发存上传，本人初学者，好多问题都是看帮助，查网页，一点一点实验，琢磨半天才有一点进展。希望得到老师的帮助。

目前该表格还有以下问题：1、不知道怎么设置标题，单位和年月无法显示，如XX单位2018年XX月仓库收发存报表。

2、在数据录入表里，只用粘贴数据总表的代码，其它能够直接出来的信息直接显示，其它需要复选的也没问题，问题是收表和发表里根据判断应该能够自动填充每一笔数据啊，但是试了很久也没有搞对。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓库报表.table

密码：888

1、你说的是报表？excel报表？你excel模板发上来看看。

 

2、输入录入的时候，自动在收、发表添加添加数据？

 

http://www.foxtable.com/webhelp/scr/2490.htm

 

3、编码问题

 

Select e.DataCol.Name
    Case "代码","月"
        If e.DataRow.IsNull("代码") OrElse e.DataRow.IsNull("月") Then
            e.DataRow("单据编号") = Nothing
        Else
            Dim bh As String = e.DataRow("代码") & format( val(e.DataRow("月")), "00")  & "-" '生成编号的前缀
            If e.DataRow("单据编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "代码 = '"& e.DataRow("代码")   & "' and 月 = '"& e.DataRow("月") & "'"
                 max = e.DataTable.Compute("Max(单据编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("单据编号") = bh & Format(idx,"000")
            End If
        End If
End Select

谢谢老师，自动编码的代码这次正确了。还有一个问题:如果我还想添加一个判断函数，当最大编号旁边一列e.datarow(“打印属性”)对应行显示的是“已打印”,idx赋值才加1，否则等于最大值，该如何添加代码啊？还有代码编写规则我该怎么掌握呢？感觉我找不到规律。比如：

 

 

2、输入录入的时候，自动在收、发表添加添加数据？

 

http://www.foxtable.com/webhelp/scr/2490.htm    这个，我按照说明改好代码，但是我还希望，如果在产品表里只有“出入库”列中显示“收”，才在库存表里添加数据，该怎么修改代码呢？如果有几个条件，不仅仅是出入库显示“收”，或者显示“发”，但另一列“出库属性”显示“寄售”时，才在库存表里添加数据，该怎么修改代码呢？

多谢“有点甜”老师的赐教，万分感谢！！！

 

1、

 

Select e.DataCol.Name
    Case "代码","月"
        If e.DataRow.IsNull("代码") OrElse e.DataRow.IsNull("月") Then
            e.DataRow("单据编号") = Nothing
        Else
            Dim bh As String = e.DataRow("代码") & format( val(e.DataRow("月")), "00")  & "-" '生成编号的前缀
            If e.DataRow("单据编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "代码 = '"& e.DataRow("代码") & "' and 月 = '"& e.DataRow("月") & "' and _Identify <> " & e.DataRow("_Identify")
                Dim fdr = e.DataTable.find(flt, "单据编号 desc, _Identify desc") '取得该月的相同工程代码的最大单据编号
                If fdr IsNot Nothing Then
                    If fdr("打印属性") = "已打印" Then '如果存在最大单据编号
                        idx = CInt(fdr("单据编号").Substring(bh.length,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
                        e.DataRow("单据编号") = bh & Format(idx,"000")
                    Else
                        e.DataRow("单据编号") = fdr("单据编号")
                    End If
                Else
                    idx = 1 '否则顺序号等于1
                    e.DataRow("单据编号") = bh & Format(idx,"000")
                End If
               
            End If
        End If
End Select

2、加入一个判断即可，如

 

If e.DataCol.Name = "出入库" Then

    If e.DataRow("出入库") = "收" Then

 

    ElseIf e.DataRow("出入库") = "发" Then

 

    End If

End If

多谢！

Select Case e.DataCol.name
            Case "总码"
                Dim dr As DataRow = DataTables("收").Find("总码= '" & e.OldValue & "'")
                If dr Is Nothing Then
                    dr = DataTables("收").AddNew()
                    dr("总码") = e.DataRow("总码")
                    dr("日期") = e.DataRow("录入时间")
                    dr("物品类别") = e.DataRow("物品类别")
                    dr("资金类别") = e.DataRow("资金类别")
                    dr("名称") = e.DataRow("名称")
                    dr("规格") = e.DataRow("规格")
                    dr("单位") = e.DataRow("单位")
                    dr("数量") = e.DataRow("数量")
                    dr("单价") = e.DataRow("单价")
                    dr("金额") = e.DataRow("金额")
                    dr("供货商") = e.DataRow("供货商")
                    dr("经手人") = e.DataRow("经手人")
                    dr("单据编号") = e.DataRow("单据编号")
                    dr("备注") = e.DataRow("备注")
                End If
            Case  "数量","金额"
                Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
                If dr IsNot Nothing Then
                    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
                End If
            End  Select

以上是原代码，编写完成执行后，“数据录入”表里[总码]列里添加总码后，不管“数据录入”表里的[出入库]列是否选择字符“发”或者“收”，在“收”表里将每一次的“数据录入”表里的对应内容显示出来，这显然不符合设计要求，因为“收”表里只允许显示[出入库]=“收”的项目。后来根据老师指点添加了IF判断语句，更改后的代码如下：

If e.DataCol.name = "出入库" Then
    If e.DataRow("出入库") = "收" Then
        Select Case e.DataCol.name
            Case "总码"
                Dim dr As DataRow = DataTables("收").Find("总码= '" & e.OldValue & "'")
                If dr Is Nothing Then
                    dr = DataTables("收").AddNew()
                    dr("总码") = e.DataRow("总码")
                    dr("日期") = e.DataRow("录入时间")
                    dr("物品类别") = e.DataRow("物品类别")
                    dr("资金类别") = e.DataRow("资金类别")
                    dr("名称") = e.DataRow("名称")
                    dr("规格") = e.DataRow("规格")
                    dr("单位") = e.DataRow("单位")
                    dr("数量") = e.DataRow("数量")
                    dr("单价") = e.DataRow("单价")
                    dr("金额") = e.DataRow("金额")
                    dr("供货商") = e.DataRow("供货商")
                    dr("经手人") = e.DataRow("经手人")
                    dr("单据编号") = e.DataRow("单据编号")
                    dr("备注") = e.DataRow("备注")
                End If
            Case  "数量","金额"
                Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
                If dr IsNot Nothing Then
                    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
                End If
            End  Select
        End If
    End If