请问这个问题要如何解决？

54.℡80後2oO　发表于：2012-07-22 20:48:07 　

复制

dim i,xi yi zi

for i=1 to 30

我要的结果是：当i=1时，xi=x1，依此类推，当i=30时，xi=x30，这个要如何实现

注：

我要对 xi另外赋值。xi=dlookup()

Top

54.℡80後2oO 发表于：2012-07-23 01:53:32

请版主关闭，已解决！！！

Top

54.℡80後2oO 发表于：2012-07-23 07:37:21

再问个问题：

下面这段代码中，字段结果j要怎么表达才对啊？

Dim i, j, m

For i = 1 To 30
j = UpNumber(i, 1, False)
'm = "结果" & j
If Me!批量输入结果.Controls("选中" & j) = True Then
     DoCmd.RunSQL "Update 病人资料总表 Set 结果j= 结果 where 打印标记=true"

Else
     Me!批量输入结果.Controls("选中" & j) = False

     Me![批量输入结果].Requery
     Me.批量输入子窗体.Requery
     Me.批量输入结果子窗体.Requery

'DoCmd.RunSQL "Update 病人资料总表 Set 打印标记 = False"

End If

Top

瞿丽忠发表于：2012-07-23 12:30:16

DoCmd.RunSQL "Update 病人资料总表 Set 结果= '" & 结果j & "' where 打印标记=true"

Top

54.℡80後2oO 发表于：2012-07-23 13:03:43

LS仁兄，重新写了；下面这段代码中，字段结果j（如表中的“结果一”结果二等字段）要怎么表达才对啊？

Dim i, j, m

For i = 1 To 30
j = UpNumber(i, 1, False)
'm = "结果" & j
If Me!批量输入结果.Controls("选中" & j) = True Then
DoCmd.RunSQL "Update 病人资料总表 Set 结果j= '" & Me.结果 & "' Where 打印标记=true"

Else
Me!批量输入结果.Controls("选中" & j) = False

Me![批量输入结果].Requery
Me.批量输入子窗体.Requery
Me.批量输入结果子窗体.Requery

'DoCmd.RunSQL "Update 病人资料总表 Set 打印标记 = False"

End If

Top

54.℡80後2oO 发表于：2012-07-23 17:54:05

版主，没解决怎么就结贴了啊？？？？

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

请问这个问题要如何解决？