[求助] 如何获得单元格中的值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何获得单元格中的值？

共有9470人关注过本帖树形打印复制链接主题：[求助] 如何获得单元格中的值？

liuzixing

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

加好友

发短信

等级：婴狐帖子：27 积分：265 威望：0 精华：0 注册：2012/1/28 1:10:00

[求助] 如何获得单元格中的值？ 发帖心情

Post By：2012/3/5 14:26:00 [只看该作者]

我想获得单元格中的值，当“产品名称”不为空时，才可以提交订单：

If e.DataCol.Name = "提交订单" Then

Dim dr2 As DataRow = e.DataRow("产品名称")

If dr2 Is Nothing Then

MessageBox.Show("请先填写品名数据再提交!")

e.Cancel = True

End If

问题二：当前登陆用户须与原始订单录入者一致时，才能通过菜单的 “编辑” 命令修改和删除订单：

If DataTables(“订单”).DataRows("业务员") <> User.Name Then

MessageBox.Show("对不起，你不是订单录入者本人，无法修改订单！")

Return

Else

Tables("订单").Current.Delete

End If

请问狐狸爸爸，以上两段代码，应该怎样修改，才能实现？

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/3/5 14:31:00 [只看该作者]

If e.DataCol.Name = "提交订单" Then
Dim dr2 As DataRow = e.DataRow
If dr2.IsNull("产品名称") Then

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/3/5 14:34:00 [只看该作者]

Dim r As Row = Tables("订单").Current
If r("业务员") <> User.Name Then
MessageBox.Show("对不起,你不是订单录入者本人,无法修改订单!")

狐狸爸爸

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

加好友

发短信

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

Post By：2012/3/5 14:36:00 [只看该作者]

1、

If e.DataCol.Name = "提交订单" Then
    If e.DataRow.IsNull("产品名称") Then
        MessageBox.Show("请先填写品名数据再提交!")
        e.Cancel = True
    End If
End If

2、

If Tables("订单").Current("业务员") <> User.Name Then
    MessageBox.Show("对不起,你不是订单录入者本人,无法修改订单!")
    Return
Else
    Tables("订单").Current.Delete
End If

3、建议再次系统学习一下开发指南下的《编程基础》和《foxtable编程》这两章。

liuzixing

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

加好友

发短信

等级：婴狐帖子：27 积分：265 威望：0 精华：0 注册：2012/1/28 1:10:00

Post By：2012/3/5 15:03:00 [只看该作者]

非常，非常，非常感谢！正常了！我是的时常看一下教程。。。还是太菜了

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

主题：[求助] 如何获得单元格中的值？