- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 从原始表导出统计表中勾选的单据编号的明细。。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124520)
-- 发布时间：2018/9/8 9:51:00
-- 从原始表导出统计表中勾选的单据编号的明细。。
此主题相关图片如下：微信截图_20180908094556.png
老师，右边的表（table2）是左边表（table1）的统计表，按单据编号分组
想实现右边打钩的某一些单据编号，导出对应的左边的明细表。
Dim str As String = ""
dim t1 as table = e.Form.Controls("table1").Table
Dim t2 As Table = e.Form.Controls("table2").Table
Dim rs As List(of Row) = t2.GetCheckedRows()
For Each r As Row In t1.select("单据编号 in XXXXX") \'这个不知道怎么写
For Each c As Col In t.cols
If c.name = "库位" Or c.name = "条码" Or c.name = "数量" Then
str &= r(c) & ","
End If
Next
str = str.Trim(",") & vbcrlf
Next
-- 发布时间：2018/9/8 10:12:00
--
Dim nos As String
For Each r As Row In t2.GetCheckedRows()
nos= nos & "\',\'" & r("单据编号")
Next
nos = nos.Trim(new Char(){"\'",","}))
msgbox("单据编号 in (\'" & nos & "\')")
For Each r As Row In t1.Select("单据编号 in (\'" & nos & "\')")
……