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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 对象设置到实例

共有2618人关注过本帖树形打印复制链接主题：对象设置到实例

huhu

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

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

对象设置到实例 发帖心情

Post By：2017/2/17 14:11:00 [只看该作者]

此主题相关图片如下：对象.png

KeyDownEdit有什么问题吗?

If e.keyCode = Keys.Enter AndAlso e.Table.Cols(e.Table.colSel).Name = "SN" Then

e.cancel = True

Dim r As Row = e.Table.addnew

e.Table.Select(r.Index, 0)

e.Table.StartEditing

End If

BeforeAddDataRow

Dim r As Row = Tables("销售出库单列表").Current

If r("配货状态") = True Then

e.cancel = True

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/17 14:13:00 [只看该作者]

Dim r As Row = Tables("销售出库单列表").Current
If r Is Nothing Then
    msgbox("没有数据")
    e.Cancel = True
Else
    If r("配货状态") = True Then
        e.cancel = True
    End If
End If

huhu

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

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2017/2/17 15:21:00 [只看该作者]

这改的是BeforeAddDataRow吧。不是报KeyDownEdit吗?还是怎么个情况，我没看懂。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/17 15:29:00 [只看该作者]

If e.keyCode = Keys.Enter AndAlso e.Table.Cols(e.Table.colSel).Name = "SN"   Then
    e.cancel = True
    Dim r As Row = e.Table.addnew
    If r Is Nothing Then
        msgbox("新增失败")
    Else
        e.Table.Select(r.Index, 0)
        e.Table.StartEditing
    End If
End If

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

主题：对象设置到实例