Foxtable(狐表)用户栏目专家坐堂 → 求助:如何一键生成对应行数表记录


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

主题:求助:如何一键生成对应行数表记录

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/16 9:08:00 [显示全部帖子]

e.DataRow("第一列") = Tables("表A").FindRow(e.DataRow) + 1


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/16 14:11:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/16 21:27:00 [显示全部帖子]

Dim r As Row = Tables("表A").InsertNew()
r("第一列") = format(Date.Now, "ss")
r.Move(r.Index+1)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/16 22:52:00 [显示全部帖子]

 例子弄上来

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/16 23:55:00 [显示全部帖子]

SystemReady = False
Dim r As Row = Tables("卷内目录").InsertNew()
r("案卷编号") = "瓮检侦监批捕【2014】23号"
r.Move(r.Index+1) 
DataTables("卷内目录").DataCols("案卷编号").RaiseDataColChanged(r.DataRow)
SystemReady = True

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/17 9:02:00 [显示全部帖子]

 不要实时生成啊。

 

 修改后,你重置列啊


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/17 9:34:00 [显示全部帖子]

以下是引用李孝春在2014-12-17 9:22:00的发言:
重置序号列么 有点甜老师

 

重置编号列。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/17 15:38:00 [显示全部帖子]

 是。

 回到顶部