e.Cancel = True. 这行怎么改成不添加行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → e.Cancel = True. 这行怎么改成不添加行

共有3096人关注过本帖树形打印复制链接主题：e.Cancel = True. 这行怎么改成不添加行

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

e.Cancel = True. 这行怎么改成不添加行 发帖心情

Post By：2016/6/19 14:10:00 [只看该作者]

Dim dr As DataRow

Dim Filter As String

Filter = "[name] = '" & e.DataRow("name") & "' And [leiji] = '" & e.DataRow("leiji") & "'"

dr = DataTables("minxi").Find(Filter ) '在行政区域表查找所输入省市和县市的行

If dr IsNot Nothing Then '如果找到

'将找到行的区号?邮编内容填入到正在输入的行中.

e.DataRow("cb") = dr("price")

e.DataRow("pt") = dr("price1")

e.DataRow("vip") = dr("vip")

e.DataRow("vvip") = dr("vvip")

e.DataRow("cvp") = dr("cvp")

e.DataRow("used") =1

e.DataRow("lirun")=e.DataRow("price")-e.DataRow("cb")

e.DataRow("yu")=dr("leiji") - e.DataRow("leiji")

Else If dr Is Nothing Then

e.Cancel = True

msgbox("无法出库,库存不足")

End If

e.Cancel = True. 这行怎么改成不添加行（如果满足dr is nothing时）

现在执行到这个位置后，会一直添加行。

然后一直提示库存不足

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/6/19 21:56:00 [只看该作者]

你上面的代码，有增加行吗？

大红袍

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

加好友

发短信

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

Post By：2016/6/19 23:42:00 [只看该作者]

代码你写到什么事件？增加行的代码写到哪里了啊？

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2016/6/20 9:48:00 [只看该作者]

有的啊。

增加一行，提示一次没有库存

事件是datarowadded

[此贴子已经被作者于2016/6/20 9:51:34编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/6/20 9:58:00 [只看该作者]

写到 DataRowAdding事件。

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2016/6/20 19:55:00 [只看该作者]

重新看了一下应该是下面这段代码的问题
问题出在 weixin窗口的，+号按钮，输入数量后如果没有库存就会一直提示没有库存

下面的代码是在weixin表的datacolchanged

下载信息 [文件大小：下载次数： ]
点击浏览该文件:mifeng2.foxdb

If e.DataCol.name = "shuliang" Then
    If e.DataRow("shuliang") Then
        Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
        For i As Integer = t.rows.count-1 To 0 Step -1
            t.rows(i).delete
        Next
        Dim cc As Integer =e.DataRow("shuliang")
        Dim r As Row = Tables("weixinminxi").Current
        Dim r1 As Row = Tables("minxi").Current
        Dim rks1 As Double = DataTables("minxi").sqlCompute("max(leiji)", "name = '" & r1("name") & "'")
        Dim cks As Double = DataTables("weixinminxi").sqlCompute("max(leiji)", "name = '" & r("name") & "'")

想在这个部分比较 minxi表name的最大 leiji值   是否大于weixinminxi表相同name 的最大lieji值
如果满足下面

        If rks1 - cks >=0 Then
        t.addnew(cc)
        t.save()
Else
    If rks1 -cks <0 Then
e.Cancel = True
       msgbox("无法出库,库存不足")
    End If
End If
End If
End If

[此贴子已经被作者于2016/6/20 19:57:43编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/6/20 20:35:00 [只看该作者]

If e.DataCol.name = "shuliang" Then
    Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
    Dim cc As Integer = e.DataRow("shuliang")
    Dim rks1 As Double = DataTables("minxi").sqlCompute("max(leiji)", "name = '" & e.DataRow("name") & "'")
    Dim cks As Double = DataTables("weixinminxi").sqlCompute("max(leiji)", "name = '" & e.DataRow("name") & "'")

    If rks1 - cks >=0 Then
        For i As Integer = t.rows.count-1 To 0 Step -1
            t.rows(i).delete
        Next
        t.addnew(cc)
        t.save()
    Else
        e.Cancel = True
        msgbox("无法出库,库存不足")
    End If
End If