主题：关于自动找到空行填写填规定值

老师们晚上辛苦！！！

下面这段代码，是在B表中输入值后，在A表中的C列找该值，如果没找到，则在C列中找到第一个空值的单元格，并填写该值，如果找不到空值的行，则添加一行后再填写。可我下面的代码总是有错，请老师帮忙，谢谢老师们：

Select Case e.DataCol.name
    Case "发文单位"

       ' Dim dr As DataRow = DataTables("词典").Find("发文单位 = '" & e.OldValue & "'")
 Dim dr As DataRow = DataTables("词典").Find("发文单位 = '" & e.newValue & "'")
        If dr Is Nothing Then
Dim Row As DataRow = DataTables("词典").find("发文单位 = Nothing ,Index") '-------找到"发文单位"第一个为空值的行
If Row = True Then                          '---------------如果找到空值的第一行
 dr("发文单位") = e.DataRow("发文单位")
Else
            dr = DataTables("词典").AddNew() '-------------如果无空值的行,则添加一行
            dr("发文单位") = e.DataRow("发文单位")
End If
        End If
End Select