- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 筛选与排序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88549)
-- 发布时间：2016/8/4 17:58:00
-- [求助] 筛选与排序
有上图两个表，一个是临时表“统计表2”，一个是“项目明细表”，“统计表2”中有一个“排序编号”列，此列是通过代码增加上去的，值为空，我想通过代码把这一列的数据填充到临时表“统计表2”中，条件是：“统计表2”[项目简称]列的值等于"项目明细表"[项目简称]列的值，“统计表2”[排序编号]列的值等于“项目明细”表中[简称代码]的值！我写了个代码，请老师看看哪里错了！对了，排序编号增加上后，要排序编号进行排序，代码怎么写？
此主题相关图片如下：qq图片20160804174023.png
DataTables("统计表2").DataCols.Add("排序编号", Gettype(String))\' 增加临时列排序编号
Dim dr1 As DataRow = Tables("统计表2").Current.DataRow
Dim dr2 As DataRow
dr2 = DataTables("项目明细").Find("[项目简称] = \'" & dr1("项目简称") & "\'")
If dr2 IsNot Nothing Then
For Each dr As Row In Tables("统计表2").Rows
dr("排序编号") = dr2("简称代码")
Next
此主题相关图片如下：qq图片20160804173935.png
此主题相关图片如下：qq图片20160804173935.png[此贴子已经被作者于2016/8/4 18:03:30编辑过]
-- 发布时间：2016/8/4 18:18:00
--
DataTables("统计表2").DataCols.Add("排序编号", Gettype(String))\' 增加临时列排序编号
For Each dr As Row In Tables("统计表2").Rows
Dim dr2 As DataRow
dr2 = DataTables("项目明细").Find("[项目简称] = \'" & dr("项目简称") & "\'")
If dr2 IsNot Nothing Then
dr("排序编号") = dr2("简称代码")
End If
Next
Tables("统计表2").Sort = "排序编号"
-- 发布时间：2016/8/4 20:40:00
--
多谢大红袍老师！回复问题总是那么的及时，不论时间多晚。谢谢！