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

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

 

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