怎样将在文本框中计算出的值填充到表中?

huangyz_xy

在这个论坛中以前有很多兄弟问过同样的问题,但是我还是有点不明白!在我的这个例子中怎样才可以将窗体1中的文本框中的数字更新到"汇总表"或者"汇总表1"中呢? 试图用update语句和更新查询都不行,谢谢大侠!

[ 本帖最后由 huangyz_xy 于 2008-12-7 19:22 编辑 ]

huangyz_xy

真是愚蠢,用查询方法解决了,虽然笨,但可以用!

Henry D. Sy

借助过渡表也很方便

Henry D. Sy

建一个过渡表，暂且称之为 A，结构与汇总表一致，只是个空表，里面没有数据的。

然后，在你的原按钮代码最后加入

1. Dim strSQL As String
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.Controls
   
4.         If Len(ctl.Name) <= 3 Then
   
5.             strSQL = "insert into a(号码,中奖次数)values('" & ctl.Name & "'," & ctl & ")"
   
6.             CurrentDb.Execute strSQL
   
7.         End If
   
8.     Next
   
9.     strSQL = "update 汇总表 inner Join a on 汇总表.号码=a.号码 set 汇总表.中奖次数=a.中奖次数"
   
10.     CurrentDb.Execute strSQL
    
11.     strSQL = "delete from a"
    
12.     CurrentDb.Execute strSQL
    
13.     MsgBox "Finish"

复制代码

changweiren

学习学习，收藏代码

Henry D. Sy

仔细看一下，其实可以直接更新的，不用过渡表。

1. Private Sub Make_Data_Click()
   
2.     Dim strSQL As String
   
3.     Dim ctl As Control
   
4.     Dim i As Integer, j As Integer
   
5.     Dim strA As String, strB As String
   
6. 
   
7.     For i = 1 To 33
   
8.         strA = "红" & i & "= " & i
   
9.         Me.Controls("红" & i) = DCount("红" & i, "中奖号码分布", strA)
   
10.     Next
    
11.     For j = 1 To 16
    
12.         strB = "蓝" & j & "= " & j
    
13.         Me.Controls("蓝" & j) = DCount("蓝" & j, "中奖号码分布", strB)
    
14.     Next
    
15. 
    
16.     Me!huizong = "历史纪录共有" & DCount("开奖期号", "中奖号码分布") & "期！！！"
    
17. 
    
18.     For Each ctl In Me.Controls
    
19.         If Len(ctl.Name) <= 3 Then
    
20.             strSQL = "update 汇总表 set 中奖次数=" & ctl & " where 号码='" & ctl.Name & "'"
    
21.             CurrentDb.Execute strSQL
    
22.         End If
    
23.     Next
    
24. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-8 14:01 编辑 ]

huangyz_xy

高手高手,高高手!
还有一个问题,select top只能是显示前N条纪录(order by物理排序),可不能显示比如出现次数最多的纪录(号码),怎么办?

Henry D. Sy

order by 次数 desc

arltemis

哎,代码的问题,我是一点点也不懂.哭

hzwyj

有例子更好