用户表单中的自动填充文本框

Question

我有一个用户表单，我想检查数据库中是否存在特定的礼品卡，如果找到，我想将这些值拉入相关的文本框。

我正在使用下面的代码。此代码检查有效的礼品卡（此部分有效）。

1. iRow是数据库中的最后一行
2. ValueToFind是礼品卡的ID
3. WithType是礼品卡类型。

代码：

For i = 1 To iRow + 1
    If ws.Cells(i, 2).Value = ValueToFind And _
        ws.Cells(i, 1).Value = WithType And _
        ws.Cells(i, 6).Value = "" Then

        ...

        Exit Sub
    End If
Next i

但我无法找到更新userform文本框中Me.TXT_MONEY.Value和Me.TXT_DATE.Value的方法。

你能帮我解决一下这段代码吗？

Answer 1

这是你在尝试的吗？

For i = 1 To iRow + 1
    If ws.Cells(i, 2).Value = ValueToFind And _
        ws.Cells(i, 1).Value = WithType And _
        ws.Cells(i, 6).Value = "" Then
            TXT_MONEY.Value = ws.Cells(i, X).Value
            TXT_DATE.Value = ws.Cells(i, Y).Value
        Exit Sub
    End If
Next i

将上述代码中的X和Y替换为您想要获取值的相关列号。

您可能实际上想要使用.Find而不是循环吗？请参阅我博客的THIS链接。