Question

access，窗体中，文本框要调用一个查询的值，请问该怎么做？？

Answer 1

比如说，窗体中的文本框名称为：Textbox1，假设是点击一个按钮后显示查询的值。那么将以下程序加入按钮点击后的事件内。Textbox1.value=dcount("天数","统计表","天数>0")access，窗体中，文本框要调用一个查询的值，请问该怎么做？？

Answer 2

Private Sub command1_Click()
Dim a As String, b(20) As Integer, i As Integer, j As Integer, c(20) As Integer, 位置 As Integer, 总和 As Integer, 输出文本 As String
a = Me.textbox1
For i = 1 To 20
j = InStr(1, a, ",", vbTextCompare)
b(i - 1) = Left(a, j - 1)
a = Mid(a, j + 1)
Next i

总和 = 0
For i = 1 To 20
位置 = 1

For j = 1 To 20
If b(i) > b(j) Then 位置 = 位置 + 1
Next j

c(位置) = b(i - 1)
总和 = 总和 + b(i - 1)
Next i

For i = 0 To 20
输出文本 = 输出文本 & CStr(c(i - 1)) & " "
Next i

输出文本 = 输出文本 & " 最大值:" & CStr(c(19)) & " 最小值:" & CStr(c(0)) & " 总和:" & CStr(总和) & " 平均值:" & CStr(总和 / 20)

MsgBox 输出文本

End Sub

Answer 3

文本框的值来源写查询就行了