| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 如何获得单元格中的值？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17160) |
| -- 作者：liuzixing -- 发布时间：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 End If 问题二：当前登陆用户须与原始订单录入者一致时，才能通过菜单的 “编辑” 命令修改和删除订单： If DataTables(“订单”).DataRows("业务员") <> User.Name Then MessageBox.Show("对不起，你不是订单录入者本人，无法修改订单！") Return Else Tables("订单").Current.Delete End If 请问狐狸爸爸，以上两段代码，应该怎样修改，才能实现？ |
| -- 作者：czy -- 发布时间：2012/3/5 14:31:00 -- If e.DataCol.Name = "提交订单" Then Dim dr2 As DataRow = e.DataRow If dr2.IsNull("产品名称") Then |
| -- 作者：czy -- 发布时间：2012/3/5 14:34:00 -- Dim r As Row = Tables("订单").Current If r("业务员") <> User.Name Then MessageBox.Show("对不起,你不是订单录入者本人,无法修改订单!") |
| -- 作者：狐狸爸爸 -- 发布时间：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 -- 发布时间：2012/3/5 15:03:00 -- 非常，非常，非常感谢！正常了！我是的时常看一下教程。。。还是太菜了 |