以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这个为何会出错呀  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143177)

--  作者:ygg8310
--  发布时间:2019/11/15 21:41:00
--  这个为何会出错呀
If e.Col.Name = "姓名" Then
    If e.Col.Name = "身份证号" Then
        Dim txtt1 As String = e.Row("姓名")
        Dim txtt2 As String = e.Row("身份证号")
        Dim tblt1 As Table = Tables("测试_Table1")
        tblt1.Select("姓名 = \'" & txtt1("姓名") & "\' And 身份证号 = \'" & txtt2("身份证号") & "\'")
    End If
End If

--  作者:有点蓝
--  发布时间:2019/11/15 22:24:00
--  
没看懂。代码在什么事件的,要做什么功能?
--  作者:ygg8310
--  发布时间:2019/11/16 9:43:00
--  
表事件Click的代码,当点击某单元格后,窗口的Table便自动查找与之相关的资料,系统提示这个select有误
[此贴子已经被作者于2019/11/16 9:44:11编辑过]

--  作者:有点蓝
--  发布时间:2019/11/16 9:46:00
--  
If e.Col.Name = "姓名" orelse If e.Col.Name = "身份证号" Then
        Tables("测试_Table1").filter = "姓名 = \'" & e.Row("姓名") & "\' And 身份证号 = \'" & e.Row("身份证号") & "\'"
End If