- 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=14193)
-- 发布时间：2011/11/11 20:21:00
-- [求助]代码修改（已解决）
一段代码，加到按钮中运行出错，应该如何修改，请各位老师帮助指教，谢谢！！
\'填充单位
t.DataTable.DataCols.Add("单位", Gettype(String),0)
Dim dr1 As DataRow = e.DataRow
Dim pr As DataRow
If dr1.IsNull("编号") Then
dr1("单位") = Nothing
Else
pr = DataTables("报酬明细").Find("编号 = \'" & dr1("编号") & "\'", "日期 Desc")
If pr IsNot Nothing Then
dr1("单位") = pr("单位")
Else
dr1("单位") = Nothing
End If
End If
此主题相关图片如下：u.png
-- 发布时间：2011/11/11 20:24:00
--
错在这里！
e.DataRow
-- 发布时间：2011/11/11 20:28:00
--
e.DataRow 改为 tables("**表").Current.DataRow
-- 发布时间：2011/11/11 20:49:00
--
谢谢程老师的回复，代码可以保存，没有出错，但是单位列没有填充，请老师帮助看看，问题出在哪里？谢谢！！
-- 发布时间：2011/11/11 21:25:00
--
具体问题具体解决，要从一个项目上去理解您的思路和代码，一时半会儿看不明白，确实也没有这个功夫！
-- 发布时间：2011/11/11 21:37:00
--
不会吧，程老师太谦虚了，以后还会有很多机会求得您的帮助。
上述代码就是根据编号，从报酬明细表的单位列，获取相同编号，且日期值最大的单位值，填充到当前行，并遍历全部行，估计可能问题出在新增的单位列，但不知如何下手修改，还请老师帮助看看，再次感谢！！
-- 发布时间：2011/11/11 23:53:00
--
增加了单位列后：
Dim pr As DataRow
For Each dr1 As DataRow In DataTables("个人年度汇总").DataRows
If dr1.IsNull("编号") Then
dr1("单位") = Nothing
Else
pr = DataTables("报酬明细").Find("编号 = \'" & dr1("编号") & "\'", "日期 Desc")
If pr IsNot Nothing Then
dr1("单位") = pr("单位")
Else
dr1("单位") = Nothing
End If
End If
Next
-- 发布时间：2011/11/12 7:26:00
--
谢谢e-png老师的回复，问题已得到解决，再次衷心感谢！！