Dim dr As DataRow = DataTables("现金日记账").AddNew()
改成
Dim dr As DataRow = DataTables("现金日记账").Find("fdate='" & vals(0) & "' and fexp='" & vals(1) & "'")
If dr Is Nothing Then dr = DataTables("现金日记账").AddNew()