Office中国论坛/Access中国论坛

标题: 数据填充问题 [打印本页]
作者: renyucai1963    时间: 2012-3-9 12:00
标题: 数据填充问题
本帖最后由 renyucai1963 于 2012-3-9 12:42 编辑

Sub YXCS()
Dim d As Object, i&, j&
DoCmd.SetWarnings False

Randomize
Set d = CreateObject("scripting.dictionary")
For j = 1 To 6
    For i = 1 To 6
line1:
    x = Int(Rnd * 33) + 1
    If Not d.exists(x) Then d.Add x, "" Else GoTo line1
    Next i
     DoCmd.RunSQL "Insert into 表1( 壹,贰,叁,肆,伍,陆) VALUES(" & x & "," & x & "," & x & "," & x & "," & x & "," & x & ")"
  
    d.RemoveAll
Next j
End Sub[attach]48667[/attach]

我想要的是一行一组陆个不重复的随机数，不知是哪里出了问题，请高手们帮助看看，给解决为盼。
谢谢。

作者: roych    时间: 2012-3-9 17:17
  1. Sub YXCS()
  2. Dim rst As New ADODB.Recordset
  3. Dim x(1 To 6) As Long, i As Long, j As Long
  4. '初始化并产生一个1×6的数组。
  5. Randomize
  6. For j = 1 To 6
  7. x(j) = Int(Rnd * 33) + 1
  8. Next j
  9. '打开记录集，新增记录
  10. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  11. For j = 1 To 1 '把终止值改成需要运行的次数
  12.     rst.AddNew
  13.     rst(1) = j
  14.     For i = 1 To 6
  15.         rst(i + 1) = x(i)
  16.     Next
  17.     rst.Update
  18.     rst.MoveNext
  19. Next j
  20. MsgBox "Done"
  21. End Sub
复制代码
作者: renyucai1963    时间: 2012-3-13 08:34
roych 发表于 2012-3-9 17:17

谢谢版主，费心了。
和我想要的结果有差距？
作者: renyucai1963    时间: 2012-7-16 15:08
本帖最后由 renyucai1963 于 2012-7-16 15:12 编辑

[attach]49684[/attach]

Private Sub Command1_Click()
Dim i As Integer, A As Integer, B As Integer, C As String
A = InputBox("请输入年份", "某年每个月的第一天是星期几", 2012)

Form1.Cls
For i = 1 To 12
C = A & "-" & Format(i, "00") & "-1"
B = Weekday(C)
Select Case B
Case vbSunday
Print A & "年" & Format(i, "00") & "月1日是 星期日"
Case vbMonday
Print A & "年" & Format(i, "00") & "月1日是 星期一"
Case vbTuesday
Print A & "年" & Format(i, "00") & "月1日是 星期二"
Case vbWednesday
Print A & "年" & Format(i, "00") & "月1日是 星期三"
Case vbThursday
Print A & "年" & Format(i, "00") & "月1日是 星期四"
Case vbFriday
Print A & "年" & Format(i, "00") & "月1日是 星期五"
Case vbSaturday
Print A & "年" & Format(i, "00") & "月1日是 星期六"
End Select
Next i
End Sub
作者: zhangz9    时间: 2012-9-25 21:36
学习了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3