分拆表的后续（求助）

若离ヘ不弃°

之前发了个帖子求助33-35怎么变成333435
现在发现数字比较长3004562-3004570这样的话就显示溢出
求真相
http://www.office-cn.net/thread-114665-1-1.html

Agent

字段的类型是什么?

若离ヘ不弃°

Agent 发表于 2012-11-9 14:36
字段的类型是什么?

Private Sub Command2_Click()
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim i As Integer, j As Integer, k As Integer, P As Long
    Dim str As String
        rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    Do While Not rs.EOF
        str = rs.Fields(0)
        P = InStr(str, "-")
        j = Left(str, P - 1)
        k = Mid(str, P + 1)
        For i = j To k
            strSQL = _
                "INSERT INTO B ( [S/N], [I S/N], [型号-Model], [Sell STATUS], [Product STATUS], [Plan Produce Month], [DINEMA BOX N], [Final MC], [W-order],[MC Code])VALUES('" & i _
                & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "','" & _
                rs.Fields(3) & "','" & rs.Fields(4) & "','" & rs.Fields(5) & "','" & rs.Fields(6) & "','" & rs.Fields(7) & "','" & rs.Fields(8) & "','" & rs.Fields(9) & _
                "')"
                       CurrentDb.Execute strSQL
        Next
        rs.MoveNext
    Loop
    Me.[B子窗体].Requery
   
    rs.Close
    Set rs = Nothing
End Sub

现在的语句 还是Henry版主帮的忙，前面都拿短数字试的，今天拿来用就发现实际的太长了啊

若离ヘ不弃°

P As Integer，我瞎改的

若离ヘ不弃°

改好了

Agent

若离ヘ不弃° 发表于 2012-11-9 14:52
改好了

自己来更好啊.