vb通过变量引用列

Question

我正在尝试使用 vb 脚本更新 Access 数据库，方法是将足球得分线放入取决于进球时间的列中。

所以我有一个表 tblScoreLinesByMinute，其中包含

matchID 1 2 3 4.... 89 90

我在脚本中设置的

Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblScoreLinesByMinute", dbOpenTable)

列让我们假设主队在第 3 分钟进球 我使用变量 numTime = 3 捕获了这一点，并创建了变量 strScoreline = 10。 我希望更新类似的表

rst![numTime] = strScoreline

，但如果我尝试此操作或 CStr(numTime) 我会收到运行时错误“在此集合中找不到项目”。硬编码的

rst![3] = strScoreline 确实有效，

我也热衷于将其他列设置为相关的得分线。假设客队在第88分钟扳平比分。我所追求的是让这个特定比赛的行显示“00”的第 1,2 列、第 3 至 87 列（包括“10”）和第 88-90 列“11”的得分线，

如果有的话，我也可以使用 mssql一个更简单的方法

Answer 1

如果我正确理解你问题的第一部分，我认为你应该尝试这个：

rst.Fields(numTime) = strScoreline

我不知道你问题的第二部分。

编辑：您的评论让我认为您的 numTime 文本值被 rst.Fields 解释为数字而不是字符串值。然而，这里的情况似乎并非如此。

打开基于相同表和字段名称的记录集，此代码抛出错误（“在此集合中找不到项目”）：

numTime = "0"
Debug.Print rst.Fields(numTime)

但是此代码打印名为“2”的列的值：

numTime = "2"
Debug.Print rst.Fields(numTime)

所以我仍然不明白为什么它不适合你。但我从未使用数字作为列名；我觉得这似乎是错误的。如果您将列重命名为 MatchID、f1、f2、f3 而这种方法仍然不起作用，我会感到更惊讶。