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

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

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 "总码", "出入库"
        If e.DataRow("出入库") = "收" Then
            Dim dr As DataRow = DataTables("收").Find("总码= '" & e.DataRow("总码") & "'")
            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
        End If
       
    Case  "数量","金额"
        If e.DataRow("出入库") = "收" Then
            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 If
End Select
    
   

参考代码

Select Case e.DataCol.name
    Case "总码", "出入库"
        If e.DataRow("出入库") = "收" Then
            Dim dr As DataRow = DataTables("收").Find("总码= '" & e.DataRow("总码") & "'")
            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("备注")
            ElseIf e.DataRow("出入库") = "发" Then

                '这里写代码
            End If
        End If
       
    Case  "数量","金额"
        If e.DataRow("出入库") = "收" Then
            Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
        ElseIf e.DataRow("出入库") = "发" Then

            '这里写代码
        End If
End Select

Select Case e.DataCol.name
    Case "总码", "出入库"
        If e.DataRow("出入库") = "收" Then

            e.DataRow.Save
            Dim dr As DataRow = DataTables("收").Find("总码= '" & e.DataRow("_Identify") & "'")
            If dr Is Nothing Then
                dr = DataTables("收").AddNew()
                dr("总码") = e.DataRow("_Identify")
                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("备注")
            ElseIf e.DataRow("出入库") = "发" Then

                '这里写代码
            End If
        End If
       
    Case  "数量","金额"
        If e.DataRow("出入库") = "收" Then
            Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("_Identify") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
        ElseIf e.DataRow("出入库") = "发" Then

            '这里写代码
        End If
End Select

拷贝【收】的代码，写到发【发】那里去，然后修改各个列名，匹配【发】表。

你修改的是原来的记录？你修改了对应的行也修改这个是符合逻辑的吧？你希望修改的时候不变？请举例说明。

请贴出你datacolchanged事件的完整代码。红色代码那里，把经手人、日期去掉，即可

Case "总码", "出入库", "数量","金额", "经手人", "日期"