- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教代码怎样写 希望实现的功能：按复制按钮 根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列 第三列每行+1 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120063)
-- 发布时间：2018/6/6 13:42:00
-- 请教代码怎样写 希望实现的功能：按复制按钮 根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列 第三列每行+1
按复制按啊啊钮 按复制按钮 根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列
第三列每行+1根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列
第三列每行+1 按复制按钮 功能：按复制按钮 根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列
第三列每行+1
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:管理项目1.rar
此主题相关图片如下：tim截图20180606134221.png
根据NumericComboBox1的数值复制相行数，第一列按数值不变，第二列
第三列每行+1
[此贴子已经被作者于2018/6/6 13:45:51编辑过]
-- 发布时间：2018/6/6 14:52:00
--
Dim t As Table = e.Form.controls("Table1").Table
t.DataTable.deletefor("第一列 is null")
Dim r As Row = t.current
Dim count As Integer = e.Form.Controls("NumericComboBox1").value
Dim str1 As String = r("第二列")
Dim str2 As String = r("第三列")
Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str1,"[0-9.]+")
Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str2,"[0-9.]+")
For i As Integer = 1 To count
Dim nr As Row = t.addnew
If mc1.count > 0 Then
Dim s As String = mc1(mc1.count-1).value
nr("第二列") = str1.replace(s, format(val(s) + i, "".PadLeft(s.length,"0")))
End If
If mc2.count > 0 Then
Dim s As String = mc2(mc2.count-1).value
nr("第三列") = str2.replace(s, val(s) + i)
End If
nr("第一列") = r("第一列")
Next
-- 发布时间：2018/6/6 15:12:00
--
谢谢 田老师！