求助

鱼儿游游

我想在下面字符串中，准确找出各字段的名字（字段A、[字段B]、字段C ）？
strString=“字段A = '增值税' AND [字段B] = 'XXXX') OR (字段C >100 AND [字段B ] = 'YYYY')”

哪位朋友帮下忙？

roych

都加上中括弧，用Split+For很容易处理呀。

鱼儿游游

roych 发表于 2011-11-25 19:32
都加上中括弧，用Split+For很容易处理呀。

难呀，我的本意就是怎么取出记录集的筛选条件中的各字段名，然后，用指定的字符代替（加上别名）。不然，如果是连接的记录集，你对记录集进行查找、求和时，只取字段名，可能会出错的（表间如果有相同的字段名时，就会出错）。

andymark

做一个对照表

yehf

循环 from语句的表名(查询名)的各个字段名,用instr来匹配一下,就算这个string是来源于窗体的filter属性,也有办法找到来源那个表,from后面有几个左右连接,就循环几次

t小宝

2楼的似乎可行呀

鱼儿游游

t小宝 发表于 2011-11-25 20:43
2楼的似乎可行呀

我用下面的方法基本可行了，待改进的地方：当有某字段名是另一字段名的一部分时，会出错。
‘
' 如数据源的SELECT语句字段名有别名，把 strFilter 中的所有字段加上原来的别名
'
Private Function AddAliasNameIntoFilter(ByVal strSQL_FieldList As String, ByVal strFilter As String) As String
    Dim arrFieldName() As String
    Dim strFieldName   As String  '不含[]的字段名
    Dim intPos         As Integer
    Dim intI           As Integer
    '取SQL语句中的字段
    arrFieldName = Split(strSQL_FieldList, ",")
    strResult = ""
    For intI = LBound(arrFieldName) To UBound(arrFieldName) Step 1
       arrFieldName(intI) = Trim(Nz(arrFieldName(intI), ""))
       intPos = InStr(1, arrFieldName(intI), ".", vbTextCompare)
       If intPos > 0 Then
          strFieldName = Trim(Mid(arrFieldName(intI), intPos + 2))
          strFieldName = Trim(Left(strFieldName, Len(strFieldName) - 1))
          strFilter = Replace(strFilter, strFieldName, "[" & strFieldName & "]", 1, -1, vbTextCompare)                'YYY ------> [YYY]
          strFilter = Replace(strFilter, "[[" & strFieldName & "]]", "[" & strFieldName & "]", 1, -1, vbTextCompare)  '[[YYY]] --> [YYY]
          strFilter = Replace(strFilter, "[" & strFieldName & "]", arrFieldName(intI), 1, -1, vbTextCompare)          '[YYY] ----> [XXX].[YYY]
       End If
    Next
    AddAliasNameIntoFilter = strFilter
End Function

鱼儿游游

鱼儿游游 发表于 2011-11-25 22:12
我用下面的方法基本可行了，待改进的地方：当有某字段名是另一字段名的一部分时，会出错。
‘
' 如数 ...

强制加 []是没问题，但当数据源的SELECT语句里的字段列表没有[]时，就可能出错了。