求助:Select返回所有符合指定条件的行的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助:Select返回所有符合指定条件的行的问题

共有11240人关注过本帖树形打印复制链接主题：求助:Select返回所有符合指定条件的行的问题

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

求助:Select返回所有符合指定条件的行的问题 发帖心情

Post By：2011/12/22 0:51:00 [只看该作者]

这一段代码是放在按钮中的,一个窗口有两张表,我的意思,在表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