标题：[求助]代码修改（已解决）

一段代码，加到按钮中运行出错，应该如何修改，请各位老师帮助指教，谢谢！！

 

'填充单位
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

错在这里！

e.DataRow

e.DataRow 改为 tables("**表").Current.DataRow

 

谢谢程老师的回复，代码可以保存，没有出错，但是单位列没有填充，请老师帮助看看，问题出在哪里？谢谢！！

 

 

具体问题具体解决，要从一个项目上去理解您的思路和代码，一时半会儿看不明白，确实也没有这个功夫！

不会吧，程老师太谦虚了，以后还会有很多机会求得您的帮助。

上述代码就是根据编号，从报酬明细表的单位列，获取相同编号，且日期值最大的单位值，填充到当前行，并遍历全部行，估计可能问题出在新增的单位列，但不知如何下手修改，还请老师帮助看看，再次感谢！！

增加了单位列后：

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

谢谢e-png老师的回复，问题已得到解决，再次衷心感谢！！