以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式链接  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59928)
--  作者：langya
--  发布时间：2014/11/13 16:40:00
--  表达式链接
表达式之间可以通过& 连接起来作为字符串使用吗？
--  作者：有点甜
--  发布时间：2014/11/13 16:45:00
--  
 要用 + 连接
--  作者：langya
--  发布时间：2014/11/13 16:49:00
--  
 Dim rssz() As String = {"姓名","用户名"}
            Dim zj As String
            For j As Integer = 0 To rssz.Length - 1
                zj ="姓名 = \'"& r("姓名") & "\' and 用户名=\'"& r("用户名") & "\' " 
next
我想把zj后面的换成变量，就是姓名和用户名这两个字段只放在数组里，其他地方使用的都调用变量。
--  作者：有点甜
--  发布时间：2014/11/13 16:56:00
--  

没理解你什么意思，你做什么功能。
--  作者：langya
--  发布时间：2014/11/13 21:31:00
--  
dim r as row = tables("表1").current 
Dim rssz() As String = {"姓名","用户名"}
  Dim zj As String
  For j As Integer = 0 To rssz.Length - 1
   zj ="姓名 = \'"& r("姓名") & "\' and 用户名=\'"& r("用户名") & "\' 
Dim rss As DataRow = DataTables("人事").Find(zj)
next
zj ="姓名 = \'"& r("姓名") & "\' and 用户名=\'"& r("用户名") & "\' 这一句能不能换成 zj = "zj & rssz(j) = r("rssz(j)")",当然我写的不对，我就是想find方法里的表达式条件就在数组里添加就行了。
--  作者：有点甜
--  发布时间：2014/11/13 21:36:00
--  

Dim r As Row = Tables("表1").current
Dim rssz() As String = {"姓名","用户名"}
Dim zj As String = "1=1"
For Each s As String In rssz
    zj &= " and " & s & " = \'" & r(s) & "\'"
Next

msgbox(zj)