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

参考 http://www.foxtable.com/webhelp/scr/1607.htm

Dim ndr As DataRow = DataTables("凭证表").AddNew

ndr("编号") = "xxxx"

ndr("借") = "xxx"

ndr("贷") = "xxxxxxxx"

DataColChanged事件，参考代码

If e.DataCol.name = "审批" Then
    If e.NewValue = True Then
        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")
        Dim ndr As DataRow = dt1.addnew
        ndr("日期") = Date.Today
        ndr("凭证id") = e.DataRow("入库单号")
        Dim cdr1 As DataRow = dt2.AddNew
        cdr1("凭证id") = ndr("凭证id")
        cdr1("会计科目_一级科目") = "原材料"
        Dim cdr2 As DataRow = dt2.AddNew
        cdr2("凭证id") = ndr("凭证id")
        cdr2("会计科目_一级科目") = "应付账款"
        cdr2("会计科目_明细科目") = e.DataRow("供应商名称")
       
    End If
End If

参考代码

If e.DataCol.name = "审批" Then
    If e.NewValue = True Then
        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")
        Dim ndr As DataRow = dt1.addnew
        ndr("日期") = Date.Today
        ndr("凭证id") = e.DataRow("入库单号")
        Dim cdr1 As DataRow = dt2.AddNew
        cdr1("凭证id") = ndr("凭证id")
        cdr1("会计科目_一级科目") = "原材料"
        Dim cdr2 As DataRow = dt2.AddNew
        cdr2("凭证id") = ndr("凭证id")
        cdr2("会计科目_一级科目") = "应付账款"
        cdr2("会计科目_明细科目") = e.DataRow("供应商名称")
    Else

        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")

        dt1.DeleteFor("凭证id = '" & e.DataRow("入库单号") & "'")        

        dt2.DeleteFor("凭证id = '" & e.DataRow("入库单号") & "'")        
    End If
End If

参考

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

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

窗口AfterLoad事件写代码

Tables("入库主表").addNew

保存按钮写代码

DataTables("入库主表").Save()
DataTables("入库明细表").Save()

Tables("入库主表").addNew

TextBox2的TextChanged事件这样写代码

Tables("成品信息导入_成品信息表").Filter = "某列 like '%" & e.Sender.Text & "%'"

AfterLoad事件

Tables("成品信息导入_成品信息表").Filter = "客户名称_子名 = '%" & Forms("客户订单").Controls("TextBox2").Text & "'"

改代码

Select e.DataCol.Name 
    Case "成品编号"
        If e.DataRow.IsNull("成品编号") Then
            e.DataRow("卷号") = Nothing
        Else
            Dim lb As String = e.DataRow("成品编号")
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(卷号)","成品编号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = val(max) + 1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("卷号") = Format(idx,"000")
        End If
End Select