以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  包涵提取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114017)

--  作者:yangwenghd
--  发布时间:2018/1/26 16:45:00
--  包涵提取
能帮忙看看这个吗?
句分类与分类相同的同时,表B的句子列包含有 表A的单词,就执行后面的代码,感谢 感谢,
好吧先判断表B的句分类列与表A分类列是否相同,然后再判断 句子列内是否有表A单词列相同。感谢 感谢 

If e.DataCol.Name = "分类" Then
    Dim dr As DataRow
    dr = DataTables("表B").Find("句分类= \'"  & e.DataRow("分类") & "\'" )
    dr = DataTables("表B").Find("句子= \'"  & e.DataRow("单词") & "\'" ) 这行可以不是相同吗?如果句子内包涵有 单词列的字符。感谢 感谢 
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("单词句子")= dr("句子")
        e.DataRow("单中句子")= dr("中文")
    End If
End If  \'绑定成品的资料

--  作者:有点甜
--  发布时间:2018/1/26 17:02:00
--  
If e.DataCol.Name = "分类" Then
    Dim dr As DataRow
    dr = DataTables("表B").Find("句分类= \'"  & e.DataRow("分类") & "\' and 句子 like \'%"  & e.DataRow("单词") & "%\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("单词句子")= dr("句子")
        e.DataRow("单中句子")= dr("中文")
    End If
End If  \'绑定成品的资料

--  作者:yangwenghd
--  发布时间:2018/1/26 17:11:00
--  
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.10.26.1
错误所在事件:表,表A, DataColChanged
详细错误信息:
调用的目标发生了异常。
语法错误:“clock”运算符后缺少操作数。
这个是什么意思啊 感谢 感谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:包涵提取.table


[此贴子已经被作者于2018/1/26 17:12:11编辑过]

--  作者:有点甜
--  发布时间:2018/1/26 17:18:00
--  

If e.DataCol.Name = "分类" OrElse e.DataCol.name = "单词" Then
    Dim dr As DataRow
    dr = DataTables("表B").Find("句分类= \'"  & e.DataRow("分类").replace("\'", "\'\'") & "\' and 句子 like \'%"  & e.DataRow("单词").replace("\'", "\'\'") & "%\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("单词句子")= dr("句子")
        e.DataRow("单中句子")= dr("中文")
    End If
End If  \'绑定成品的资料

--  作者:yangwenghd
--  发布时间:2018/1/26 17:49:00
--  
感谢 感谢