Foxtable(狐表)用户栏目专家坐堂 → [求助]在哪里能找到这个案例文件?


  共有3206人关注过本帖树形打印复制链接

主题:[求助]在哪里能找到这个案例文件?

帅哥哟,离线,有人找我吗?
swagger
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5362 威望:0 精华:0 注册:2012/8/25 20:50:00
  发帖心情 Post By:2015/2/13 12:46:00 [只看该作者]

当订单的单号和订单明细的单号关联,然后在窗口中订单的单号若没填写,在订单明细增加行时会提示“增加行失败,父行(单号)无有效行!”怎么把这个提示去掉换成自己的提示,譬如“必须输入单号”
 
With Forms("订单").Controls("textbox1")
    Dim txt As String = .Value
    If txt = ""  Then
        Messagebox.Show("必须输入单号","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With
用了上述代码后,系统的提示依然存在
[此贴子已经被作者于2015/2/13 12:47:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
swagger
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5362 威望:0 精华:0 注册:2012/8/25 20:50:00
  发帖心情 Post By:2015/2/13 12:51:00 [只看该作者]

或者用这个也不行

With Forms("订单").Controls("textbox1")
   
If .Value Is Nothing Then
        Messagebox.Show("请输入单号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End
If
End
With


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 14:16:00 [只看该作者]

 去编写表的BeforeAddDataRow事件

 

If Tables("主表").Current.IsNull("第一列") Then
    msgbox("不能")
    e.Cancel = True
End If


 回到顶部
帅哥哟,离线,有人找我吗?
swagger
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5362 威望:0 精华:0 注册:2012/8/25 20:50:00
  发帖心情 Post By:2015/2/13 15:45:00 [只看该作者]

以下是引用有点甜在2015/2/13 14:16:00的发言:

 去编写表的BeforeAddDataRow事件

 

If Tables("主表").Current.IsNull("第一列") Then
    msgbox("不能")
    e.Cancel = True
End If

我把这个放在button里面了, 另外,当订单表为空表时,增加订单明细行数会显示 “增加行失败,父行无有效数据!”

 

我用了这句不知道有没有问题,暂时发现还可以

If Tables("订单").Current Is Nothing Then
    e.Cancel = True

。。。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 15:52:00 [只看该作者]

If Tables("订单").Current Is Nothing Orelse Tables("订单").Current.IsNull("关联列") Then
    msgbox("不能")
    e.Cancel = True
End If

 回到顶部
总数 15 上一页 1 2