| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 按钮加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193421) |
| -- 作者：fangshen -- 发布时间：2024/9/12 8:15:00 -- 按钮加载 请问，下面的要求不知如何写。 ①点击按钮Button1，复制“表A”的“制品名称”=“TexBox1”的100行，同时按照“序号”大的开始,黏贴到表B. ②如果不足100行，就全部复制到表B,无需提示 谢谢
|
| -- 作者：fangshen -- 发布时间：2024/9/12 8:19:00 -- 还有， 点击按钮，先执行清空表B,再执行上文的复制黏贴 谢谢
|
| -- 作者：有点蓝 -- 发布时间：2024/9/12 8:37:00 -- http://www.foxtable.com/webhelp/topics/1533.htm DataTables("表B").DeleteFor("") \'http://www.foxtable.com/webhelp/topics/0394.htm Dim drs As List(Of DataRow) drs = DataTables("表A").Select([制品名称] =\'" & e.form.controls("TexBox1").text & "\'"，"序号 desc") \'http://www.foxtable.com/webhelp/topics/0400.htm、http://www.foxtable.com/webhelp/topics/1284.htm For i as integer = 0 to math.min(100,drs.count) - 1 \'http://www.foxtable.com/webhelp/topics/0280.htm dim dr1 As DataRow = drs(i)
Dim dr2 As DataRow = DataTables("表B").AddNew() For Each dc As DataCol in DataTables("表A").DataCols dr2(dc.Name) = dr1(dc.name) Next Next |
| -- 作者：fangshen -- 发布时间：2024/9/12 9:35:00 -- 提示 编译错误：应为标识符 drs = DataTables("表A").Select(["制品名称"] =\'" & e.form.controls("TexBox1").text & "\'","序号 desc") |
| -- 作者：有点蓝 -- 发布时间：2024/9/12 9:41:00 -- drs = DataTables("表A").Select("[制品名称] =\'" & e.form.controls("TexBox1").text & "\'","序号 desc") |
| -- 作者：fangshen -- 发布时间：2024/9/12 9:44:00 -- 可以了 |