谢谢！下面问题代码的问题在哪里，提示了Like前 缺少运算符，应该如何改才正确？
Dim Cols1() As String = {"xm","sfzhm","xb","mz","xh","nj","bj","xq","zxzt","xx","xslx","zmcl","lrr","lrsj"}
Dim Cols2() As String ={"xm","sfzhm","xb","mz","xh","nj","bj","xq","zxzt","xx","xslx","zmcl","lrr","lrsj"}
Dim fil As String="like '%YYY%' And sfytjmxzf='False'"
For Each dr1 As DataRow In DataTables("xszxztb").Select("xsxm"=fil)
Dim dr2 As DataRow = DataTables("mxzfb").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr1("sfytjmxzf")=True
Next
其中：xsxm 为表xsxztb的一个多值字段
改成：Dim fil As String="like %YYY% And sfytjmxzf='False'"
For Each dr1 As DataRow In DataTables("xszxztb").Select(xsxm=fil)
...
后又提示 xsxm没有定义，如果把xsxm 改成：“xsxm”,不提示错误，但没有把符合条件的记录添加到目标表
[此贴子已经被作者于2019/2/10 22:41:27编辑过]
加好友 
发短信
Post By：2019/2/10 12:39:00 [显示全部帖子]
