盘点报表_AfterLoad

 Dim pdrq As WinForm.DateTimePicker = e.Form.Controls("盘点日期")

Dim xs As WinForm.CheckBox = e.Form.Controls("显示0库存")

pdrq.Value = Date.Today

xs.Checked = False

DataTables("盘点报表").DeleteFor("物料编码 is null")

Tables("盘点报表").Filter = "[_Identify] Is Null"

 盘点报表_BeforeClose

 For i As Integer = 0 To Tables("盘点报表主").Rows.Count-1

    Dim dr As Row = Tables("盘点报表主").Rows(i)

    If dr("状态")="待生成" Then

        DataTables("盘点报表").DeleteFor("[状态]=\'待生成\'")

         dr.Delete

    End If

Next

 If  Tables("盘点报表主").CanUndo Then

    Dim r As DataRow =DataTables("盘点报表主").Find("盘点单号 Is null")

    Dim max As String = DataTables("盘点报表").Compute("max(盘点单号)")

    Dim pddh As WinForm.TextBox = e.Form.Controls("盘点单号")

    If r Is Nothing Then

        Return

    Else

        pddh.text=max+1

    End If

    DataTables("盘点报表主").Save()

    If Tables("盘点报表").CanUndo Then

        DataTables("盘点报表").Save()

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Else

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

Else

    If Tables("盘点报表").CanUndo Then

        DataTables("盘点报表").Save()

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

End If

 盘点报表_返回_Click

 Dim Result As DialogResult

If Tables("盘点报表").CanUndo Or Tables("盘点报表主").CanUndo Then

    Result=MessageBox.Show("数据已修改,是否保存已修改数据!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)

    If Result=DialogResult.Yes Then

        DataTables("盘点报表主").Save()

        DataTables("盘点报表").Save()

        Forms("盘点报表").Close()

    Else

        Return

    End If

Else

    DataTables("盘点报表主").Save()

    DataTables("盘点报表").RejectChanges

    Forms("盘点报表").Close()

End If

 Dim xs As WinForm.CheckBox = e.Form.Controls("显示0库存")

DataTables("盘点报表主").AddNew

If xs.Checked=True Then

    For i As Integer = 0 To DataTables("库存总表").DataRows.Count-1

        Dim r As DataRow = DataTables("库存总表").DataRows(i)

        Dim dr As Row = Tables("盘点报表主.盘点报表").AddNew

        dr("物料编码")=r("物料编码")

        dr("非限制")=r("非限制")

        dr("质检")=r("质检")

        dr("冻结")=r("冻结")

    Next

Else

    For i As Integer = 0 To DataTables("库存总表").DataRows.Count-1

        Dim r As DataRow = DataTables("库存总表").DataRows(i)

        If r("非限制")+r("冻结")+r("质检")+0 > 0 Then

            Dim dr As Row = Tables("盘点报表主.盘点报表").AddNew

            dr("物料编码")=r("物料编码")

            dr("非限制")=r("非限制")

            dr("质检")=r("质检")

            dr("冻结")=r("冻结")

        End If

    Next

End If