- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据列值人数的多少新增行，并填入值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114054)
-- 发布时间：2018/1/27 14:27:00
-- [求助]根据列值人数的多少新增行，并填入值
此主题相关图片如下：ok.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新增行.table |
谢谢老师！
-- 发布时间：2018/1/27 14:55:00
--
If Forms("通知").Opened Then
Dim t As Table = Forms("通知").Controls("Table1").Table
For Each r As Row In Tables("批量增加_table1").GetCheckedRows
For Each s As String In r("被告").split(",")
Dim r2 As Row = t.AddNew
r2("案号") = r("案号")
r2("被通知人") = s
r2("审判程序") = r("审判程序")
Tables("通知_Table1").Current("制作日期") = Date.Now
Next
Next
Tables("通知_table1").Sort = "制作日期,案号"
End If
-- 发布时间：2018/1/27 15:01:00
--
谢谢老师！很完美！
-- 发布时间：2018/2/1 18:33:00
--
Dim st As Date = Date.Now \'开始计时
If Forms("通知").Opened Then
Dim t As Table = Forms("通知").Controls("Table1").Table
Forms("通知").TimerEnabled = False
t.StopRedraw
For Each r As Row In Tables("批量增加_table1").GetCheckedRows
For Each s As String In r("被告").split(",")
Dim r2 As Row = t.AddNew
r2("案号") = r("案号")
r2("被通知人") = s
r2("审判程序") = r("审判程序")
r2("诉讼地位") ="被告"
Tables("通知_Table1").Current("制作日期") = Date.Now
Next
Next
Tables("通知_table1").Sort = "制作日期,案号"
t.ResumeRedraw
Forms("通知").TimerEnabled = True
End If
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")