有上图两个表，一个是临时表“统计表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
[此贴子已经被作者于2016/8/4 18:03:30编辑过]
加好友 
发短信
Post By：2016/8/4 17:58:00 [只看该作者]
