各位谁知道动态定义变量怎么做？

Question

比如从数据表中取出字段名，作为变量。

Answer 1

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
    ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate Sub Command1_Click()
    ExecuteLine "dim i as long ,j as long "
    ExecuteLine "i = 1:j=3"
    ExecuteLine "msgbox i + j"
    ExecuteLine "msgbox (1+2)*3/4"
    ExecuteLine "dim a as string"
    ExecuteLine "a = ""dd"""
    ExecuteLine "msgbox a"
End Sub

Answer 2

cuizm(射天狼) 你好牛啊,^-^

Answer 3

这样不能达到我的目的，我想让这些字段成为类属性。
cuizm(射天狼)大侠，还有什么办法吗？非常感谢