标题：求助: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

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

 

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

 

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

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