Dim s As InString = "项目名称 Like '%福利%' And year(日期) = " & year(Date.today) & " And 明细 ='中秋国庆节'"
Dim ddr As DataRow = DataTables("记账").SQLfind(s) '找出符合条件的行
If ddr IsNot Nothing
MessageBox.Show("已存在")
ddr("日期")=#10/31/2014#
ddr.Save
DataTables("记账").LoadFilter=s
DataTables("记账").load
End If