主题：求助关于字符串函数

 这样查对应的行多麻烦啊，狐爸，TreeNode有个Tag属性，存_Identify吧。

 楼主的数据列，也应该包含数字、字符、日期，这些都是需要分开判断的，因为表达式格式不一样。

 等等，帮你写一个。

如果多种类型，就要像下面代码那样，判断一下类型。

再有就是 czz = czz.Trimend(" And ") 这句不能这样用。

 tkj.text = e.node.text
 lj = e.node.FullPath
 mc = e.node.FullName
 czl = lj.split("\")
 lmc = mc.split("\")

 Dim dt As DataTable = DataTables(bmc)
 For i As Integer = 0 To czl.Length - 1
     If dt(lmc(i)).IsString Then
          ...
     Else If dt(lmc(i)).IsDate Then
          ...
     Else If dt(lmc(i)).IsNumeric Then
         ...
     Else If dt(lmc(i)).IsBoolean

     End If
 Next

 czz = czz.Trimend(" And ")
 czdj = DataTables(bmc).Find(czz)
 Tables("产品报价单").Current("密度")=czdj("密度")
 Tables("产品报价单").Current("材料单价")=czdj("单价")

最后代码写成这样就可以了。

                tkj.text = e.node.text
                lj = e.node.FullPath
                mc = e.node.FullName
                czl = lj.split("\")
                lmc = mc.split("\")
                czz = "1=1 "
                For sl = 0 To lmc.length - 1
                    czz = czz & " And " & "[" & lmc(sl) & "] = '" & czl(sl) & "'"
                Next
                    czdj = DataTables(bmc).Find(czz)
                    Tables("产品报价单").Current("密度")=czdj("密度")
                    Tables("产品报价单").Current("材料单价")=czdj("单价")

 10楼的代码，你执行一次呗，问题应该可以解决的。

 1=1 在做条件查询的时候很常用。

 因为有And，生成表达式时，最后，前面或者后面要多一个And，需要处理掉。

 而加上1=1之后，直接写代码，不用处理And的问题。

----------------------

 当然，代价是有的，字段就不能使用索引快速查询了（不过，数据库优化引擎有改进）