<*[!var变量1]* & *[!var变量2]*> 依旧取不到值。分开就可以。
Dim Filter2 As String = "[单位名称] = '" & dr("境外收货人") & "'"Dim d2 As DataRow = DataTables("往来单位").sqlfind(Filter2)If d2 IsNot Nothing Then ' MessageBox.show("1") Vars("wldwzcdz") = d2("注册地址") Vars("wldwbgdh") = d2("办公电话") End If
<*[!wldwzcdz]*&*[!wldwbgdh]*>