Foxtable(狐表)用户栏目专家坐堂 → 子表 行号生成


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

主题:子表 行号生成

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


加好友 发短信
等级:幼狐 帖子:78 积分:660 威望:0 精华:0 注册:2018/5/21 9:19:00
子表 行号生成  发帖心情 Post By:2018/6/29 9:22:00 [只看该作者]

怎样能够做到 子表行号在新增的时候 自动生成行号

如下图 1 2 3 4 5

窗体子表 是关联表

 

 


图片点击可在新窗口打开查看此主题相关图片如下:99.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/6/29 9:23:01编辑过]

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


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

CurrentChanged事件

 

If e.Table.name = "表A" AndAlso e.Table.current IsNot Nothing Then
    e.Table.current("第一列") = e.Table.Current.index+1
End If


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


加好友 发短信
等级:幼狐 帖子:78 积分:660 威望:0 精华:0 注册:2018/5/21 9:19:00
还是不行!!老师  发帖心情 Post By:2018/6/29 11:10:00 [只看该作者]


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

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


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

1、贴出你写的代码;

 

2、你试试点击不同的行,看能否生成。


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


加好友 发短信
等级:幼狐 帖子:78 积分:660 威望:0 精华:0 注册:2018/5/21 9:19:00
换了个思路  发帖心情 Post By:2018/6/29 12:12:00 [只看该作者]

 


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

 

Dim I As Integer
Tables("sa").AddNew(1)
Dim r As Row = Tables("SA").current
r("ZDR")  = User.Name
r("RQ") = Date.Today
Dim DH As String =Tables("sa").CURRENT("NO")

For i=1 To 5
Tables("saent").AddNew(1)
Tables("saent").CURRENT("hh")=i
Tables("saent").CURRENT("NO")=DH

Next

 

这样得到了结果

[此贴子已经被作者于2018/6/29 12:17:08编辑过]

 回到顶部