是否可以将值从变量传递给变量？

Question

这里我有一个模块，其中包含用于数据源的ip_add变量，用于数据库名称的datastr，用于用户id的userstr和用于密码的passstr ...

这是我的表格..我的问题是..为什么没有值出现在constr？但是在文本框中它出现没有问题......这有什么不对吗？是不是可以将表格中的值传递给模块中的变量？

我有点卡在这里......提前付款

Answer 1

你可以做这样的事。在您的模块中添加此代码。

Public Sub SET_GLOBAL_VARS(Byval pIP_Address As String, Byval pDataString As String, _
                           Byval pUserString As String, Byval pPassString As String) 
    ip_add = pIP_Address
    datastr = pDataString
    userstr = pUserString
    passstr = pPassString
End Sub

Public Function GET_GLOBAL_CONSTR() As String
     constr = "your connection string here"
     Return constr
End Function

并使用它，

For (condition)
   ...
   SET_GLOBAL_VARS(Ip_Add, datastr, userstr, passstr)
   MsgBox(GET_GLOBAL_CONSTR())
End Loop

PS：请避免使用图片代替代码..只需复制并将其粘贴为问题中的文字：）