- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在窗口中自动编号表格中的选定格？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124033)
-- 发布时间：2018/8/29 11:32:00
-- 如何在窗口中自动编号表格中的选定格？
此主题相关图片如下：1.png
图中“某列”应为“某列中某些连续单元格”。
此主题相关图片如下：2.png
此主题相关图片如下：2.png| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1.table |
在窗口根据自己需要录入编号的前缀数据，然后选定某列中某些连续单元格，点击“排序”按钮，由系统自动生成编号。见图A、图B。如何编码
实现？
实现？
[此贴子已经被作者于2018/8/29 11:34:18编辑过]
-- 发布时间：2018/8/29 11:45:00
--
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim t As Table = e.Form.controls("table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
t.Rows(i)(t.ColSel) = txt1.text & "-" & txt2.text & "-" & format(val(txt3.text)+(i-t.TopPosition), "000")
Next
-- 发布时间：2018/8/29 12:03:00
--
秒回啊。谢谢。这么简单的代码？愈学习Foxtabe愈觉得好啊。