以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:Select返回所有符合指定条件的行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15355)
--  作者：yangming
--  发布时间：2011/12/22 0:51:00
--  求助:Select返回所有符合指定条件的行的问题

这一段代码是放在按钮中的,一个窗口有两张表,我的意思,在表1中选定行后,在表2中查找所选行中进货明细号相符的行,然后对其已付款列打勾,但是发现总是会报错,不知是什么意思:我的两个表中并没有"JH",只是进货明细号:是由JH开头的

 


图片点击可在新窗口打开查看此主题相关图片如下：没找到列.jpg
图片点击可在新窗口打开查看

Tables("付款信息_Table2").Fill("Select * From {进货信息} WHERE [已付款]= 0","User",False)
For Each r1 As Row In Tables("付款信息_Table1").GetCheckedRows
    Dim drs As List(Of DataRow)
    drs = DataTables("付款信息_Table2").Select("[进货明细号] = "& r1("进货明细号"))
    For Each dr As DataRow In drs
        dr("已付款") = True
        dr("付款日期") = Date.Today()
        r1("已转进货") = True
    Next
   
Next
--  作者：yangming
--  发布时间：2011/12/22 1:16:00
--  

我找到原因了,呵呵,还是变量的设置问题,呵,改成这样就可以了

 

原来的是:drs = DataTables("付款信息_Table2").Select("[进货明细号] = "& r1("进货明细号"))

 

改为:      drs = DataTables("付款信息_Table2").Select("[进货明细号] = "& "\'" & r1("进货明细号") & "\'")

--  作者：程兴刚
--  发布时间：2011/12/22 1:54:00
--  
drs = DataTables("付款信息_Table2"). Select("[进 货明细号] = \'" & r1("进货明细号") & "\'")