- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 子表 行号生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121097)
-- 发布时间：2018/6/29 9:22:00
-- 子表 行号生成
怎样能够做到 子表行号在新增的时候 自动生成行号
如下图 1 2 3 4 5
窗体子表 是关联表
此主题相关图片如下：99.jpg
[此贴子已经被作者于2018/6/29 9:23:01编辑过]
-- 发布时间：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
-- 发布时间：2018/6/29 11:10:00
-- 还是不行！！老师
此主题相关图片如下：223.jpg
-- 发布时间：2018/6/29 11:14:00
--
1、贴出你写的代码；
2、你试试点击不同的行，看能否生成。
-- 发布时间：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编辑过]