求助：能否实现输入234~245 可以显示为234、235、236……

若离ヘ不弃°

如题：
一张表格里面的字段是按S/N为主键，为数字，在批量输入是需要一个个输入很麻烦
能不能另外建一张表将S/N 和其它的信息批量输入呢。

admin

具体看你需求，可以将 用ADO 读取另一张表中的S/N值

Henry D. Sy

可以的吧

andymark

追加查询或更新查询

若离ヘ不弃°

admin 发表于 2012-10-11 13:03
具体看你需求，可以将 用ADO 读取另一张表中的S/N值

能不能建立一张表如下：
S/N        型号        Workorder        MC CODE        计划日期
1~4        TOP2        111        S02112        NOV
54~60        SOCKS        232        D54554        SEP

这张表中输入的内容可以反映到主表中，并且主表中还可以另外输入其它的信息，如下：
S/N        型号        Workorder        MC CODE        计划日期
1        TOP2        111        S02112        2012-11
2        TOP2        111        S02112        2012-11
3        TOP2        111        S02112        2012-11
4        TOP2        111        S02112        2012-11
54        SOCKS        232        D54554        2012-09
55        SOCKS        232        D54554        2012-09
56        SOCKS        232        D54554        2012-09
57        SOCKS        232        D54554        2012-09
58        SOCKS        232        D54554        2012-09
59        SOCKS        232        D54554        2012-09
60        SOCKS        232        D54554        2012-09
77              SMDJ          155           M111          2012-12

若离ヘ不弃°

andymark 发表于 2012-10-11 13:22
追加查询或更新查询

能不能稍微具体点啊

若离ヘ不弃°

Henry D. Sy 发表于 2012-10-11 13:07
可以的吧

大概怎么弄啊，我只会基本的access语句，这种不会

Henry D. Sy

若离ヘ不弃° 发表于 2012-10-11 13:35
大概怎么弄啊，我只会基本的access语句，这种不会

你传例子呀

若离ヘ不弃°

Henry D. Sy 发表于 2012-10-11 14:30
你传例子呀

Henry D. Sy

我是2003版的打不开你的库
给你做个例子吧

1. Private Sub Command2_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim strSQL As String
   
4.     Dim i As Integer, j As Integer, k As Integer, P As Integer
   
5.     Dim str As String
   
6.         rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
7.     Do While Not rs.EOF
   
8.         str = rs.Fields(0)
   
9.         P = InStr(str, "-")
   
10.         j = Left(str, P - 1)
    
11.         k = Mid(str, P + 1)
    
12.         For i = j To k
    
13.             strSQL = _
    
14.                 "INSERT INTO B ( [S/N], 型号, Workorder, McCODE, 计划日期 )VALUES('" & i _
    
15.                 & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "','" & _
    
16.                 rs.Fields(3) & "','" & Format(Date, "yyyy") & "-" & rs.Fields(4) & _
    
17.                 "')"
    
18.                        CurrentDb.Execute strSQL
    
19.         Next
    
20.         rs.MoveNext
    
21.     Loop
    
22.     Me.B_子窗体.Requery
    
23.     rs.Close
    
24.     Set rs = Nothing
    
25. End Sub
    

复制代码