[求助]公式设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]公式设置

共有14664人关注过本帖树形打印复制链接主题：[求助]公式设置

狐狸爸爸

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

加好友

发短信

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

Post By：2010/7/16 13:08:00 [显示全部帖子]

第二个问题，设置表的DatacolChanging事件：

Dim dr As Datarow = e.Datarow
If e.Datacol.Name = "单价" Then
    If e.NewValue < dr("厂价") * 0.7 Andalso dr("允许") = False Then
        e.Cancel = True
    End If
End If

第一个问题看不懂。

[此贴子已经被作者于2010-7-16 13:08:40编辑过]

狐狸爸爸

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

加好友

发短信

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

Post By：2010/7/17 14:55:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.table

狐狸爸爸

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

加好友

发短信

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

Post By：2010/7/17 15:50:00 [显示全部帖子]

Dim dr As Datarow = e.Datarow
If e.Datacol.Name = "单价" Andalso e.NewValue > 0 Then
    Dim str As String
    str = "[编号] = '" & dr("编号") & "' And [颜色] = '" & dr("颜色") & "' And [单位] = '" & dr("单位") & "' And [单价] Is Not Null"
    Dim dr2 As Datarow = Datatables("表A").Find(Str)
    If dr2 IsNot Nothing Andalso dr("_Identify") <> dr2("_Identify") Then
        MessageBox.Show("已经有此报价了","提示")
        e.Cancel = True
    Else
        If e.NewValue < dr("厂价") * 0.7 Andalso dr("允许") = False Then
            e.Cancel = True
        End If
    End If
End If

狐狸爸爸

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

加好友

发短信

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

Post By：2010/7/17 16:18:00 [显示全部帖子]

表的DatacolChanged事件：

If e.Datacol.Name = "编号" Andalso e.Datarow.IsNull("下单日期") Then
e.Datarow("下单日期") = Date.Today
End If

这些事基本的问题，可以先看看帮助再动手，这样学起来更快。

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

主题：[求助]公式设置