如何进行数据的拆分呢:

Sub SplitInsert(outbill As String, productid As Integer, total_num As Integer, part As Integer)
    '功能：将数据拆分后插入出库表中
    '参数：outbill--出库单号,productid--产品ID,total_num--总数量,part--拆分的份数
    Dim i As Integer
    Dim ssql As String
    Dim part_num As Integer
    
    If total_num Mod part = 0 Then
        part_num = total_num / part
        '删除出库单中productid的记录
        ssql = "delete * from 出库单 where 出库单号='" & outbill & "' and 产品ID=" & productid
        CurrentDb.Execute ssql
        '分解并追加记录
        For i = 1 To part
            ssql = "insert into 出库表 (出库单号,产品ID,数量) "
            ssql = ssql & "values ('" & outbill & "'," & productid & "," & part_num & ")"
            CurrentDb.Execute ssql
        Next
    Else
        MsgBox "不能整除，拒绝追加！"
    End If
End Sub