Foxtable(狐表)用户栏目专家坐堂 → 在窗口中怎样限制明细表可添加的行数


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

主题:在窗口中怎样限制明细表可添加的行数

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


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
在窗口中怎样限制明细表可添加的行数  发帖心情 Post By:2020/8/18 17:42:00 [显示全部帖子]

如题,有一窗口,左边是送货主表,右边是送货明细表,我想限制每一送货单最多只能添加10条明细,请问老师怎么做?

图片点击可在新窗口打开查看此主题相关图片如下:dd.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
  发帖心情 Post By:2020/8/18 21:35:00 [显示全部帖子]

我代码用在按钮上,按你上面的方法不好用,可以直接计算窗口表的行数吗?大约如下这样
但具体不会
Dim sl As Integer
sl = dataTables("送货_Table4").datarows.count
If sl>= 10 then
    Messagebox.Show("超10条!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Tables("送货主表.送货明细表").AddNew()
    Forms("送货选择").Open()
End If
[此贴子已经被作者于2020/8/18 21:36:46编辑过]

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


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
  发帖心情 Post By:2020/8/18 21:50:00 [显示全部帖子]

谢谢指点,又在data这里出错

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


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
  发帖心情 Post By:2020/8/20 9:56:00 [显示全部帖子]

在同一个窗口如下面这样写,如果在另一窗口呢?
Dim sl As Integer
sl = Tables("送货主表.送货明细表").rows.count
If sl>= 10 then
    Messagebox.Show("超10条!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Tables("送货主表.送货明细表").AddNew()
    Forms("送货选择").Open()
End If
我是这样的,却不行
Dim sl As Integer
sl = Forms("送货").????这里怎么写( Tables("送货主表.送货明细表").rows.count ) 


 回到顶部