主题：实现“入库单在保存时自动生成会计凭证”

max = e.DataTable.sqlCompute("Max(客户编码)","地区 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify"))

是这样改吗

 

 

 

是的，最后还要写 e.datarow.Save

老师：你好，请指教，这个e.datarow.save怎么写，写在下面代码的哪位置

Select e.DataCol.Name
    Case "地区"
        If e.DataRow.IsNull("地区") Then
            e.DataRow("客户编码") = Nothing
        Else
            Dim lb As String = e.DataRow("地区")
            If e.DataRow("客户编码").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.sqlCompute("Max(客户编码)","地区 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(4,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("客户编码") = lb & Format(idx,"000")
               
            End If
        End If
        End Select，没写的时第一行客户编号是自动生成，但第二就不行了

Select e.DataCol.Name
    Case "地区"
        If e.DataRow.IsNull("地区") Then
            e.DataRow("客户编码") = Nothing
        Else
            Dim lb As String = e.DataRow("地区")
            If e.DataRow("客户编码").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.sqlCompute("Max(客户编码)","地区 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(4,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("客户编码") = lb & Format(idx,"000")
                
            End If
        End If

老师：你好！怎样才能实现勾选表A记账后，能把关联表表B按科目汇总记入表Ck中，谢谢指导！

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

点击浏览该文件:管理项目2.foxdb

表A，datacolchanged事件

 

If e.DataCol.name = "记账" Then
    If e.NewValue = True Then
        For Each km As String In DataTables("表B").GetValues("科目", "日期 = #" & e.DataRow("日期") & "#")
            Dim filter = "日期 = #" & e.DataRow("日期") & "# and 科目 = '" & km & "'"
            Dim fdr As DataRow = DataTables("表C").Find(filter)
            If fdr Is Nothing Then
                fdr = DataTables("表C").addnew
                fdr("日期") =  e.DataRow("日期")
                fdr("科目") = km
            End If
            fdr("数量") = DataTables("表B").Compute("sum(数量)", filter)
        Next
    End If
End If

老师；你好！麻烦指导 一下，我这段代码

没有整数型的列，为什么会有 System.Int32

If e.DataCol.name = "已记账" Then End If 

老师：你好！165楼例子中，假如表Ｂ增加一个字符列“单号”，表Ｃ也同样增加“单号”列，怎样才能实现点击记账后也能按科目把表B的“单号”用分号合并在表Ｃ的单号列，代码要怎么写？谢谢你的指导！