[求助] 在字表中添加数据时出现问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 在字表中添加数据时出现问题

共有2437人关注过本帖树形打印复制链接主题：[求助] 在字表中添加数据时出现问题

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/11/17 16:42:00 [只看该作者]

红袍兄：我还是没有找出来问题出在哪里啊！

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/11/17 16:46:00 [只看该作者]

没有。DataTables("承兑piao据明细表")中有“收piao日期”列

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/11/17 16:51:00 [只看该作者]

此主题相关图片如下：无标题1.jpg

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/17 16:51:00 [只看该作者]

以下是引用liuxianjie1980在2015/11/17 16:46:00的发言：
没有。DataTables("承兑piao据明细表")中有“收piao日期”列

那这句代码就要改

pr("piao据金额")=DataTables("承兑piao据明细表").Compute("Sum(piao面金额)", filter1)

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2015/11/17 16:51:00 [只看该作者]

filter1 ="[客户名称] = '" & dr("客户名称") & "'and [收款日期] = #" & dr("收piao日期") & "#"

DataTables("承兑piao据明细表").Compute("Sum(piao面金额)", filter1) “承兑piao据明细表”表里，没有“收款日期”

明白了吧？

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/11/17 16:52:00 [只看该作者]

没有的话，我应该看得懂提示信息。问题是：表中明明有这个字段，却提示没有。我还看了一下数据库，同样也有这个列。

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/11/17 16:54:00 [只看该作者]

哦！！！！！

知道了，要定义两个filter

谢谢！！！！

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2015/11/17 16:56:00 [只看该作者]

Select Case e.DataCol.Name
    Case "piao面金额"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr("客户名称") IsNot Nothing Then
            Dim filter1 As String
            filter1 ="[客户名称] = '" & dr("客户名称") & "'and [收款日期] = #" & dr("收piao日期") & "#"
            msgbox(filter1)
            pr = DataTables("收款明细表").Find(filter1)
            If pr IsNot Nothing Then

  filter1 ="[客户名称] = '" & dr("客户名称") & "'and [收piao日期] = #" & dr("收piao日期") & "#"
                pr("piao据金额")=DataTables("承兑piao据明细表").Compute("Sum(piao面金额)", filter1)
            End If
        End If
End Select

下一主题 >> << 上一主题

总数 18 上一页 1 2

主题：[求助] 在字表中添加数据时出现问题