专家坐堂-加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加载  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53429)

--  作者：bagabaga
--  发布时间：2014/7/7 20:03:00
--  加载
请问从datatables中加载一行的语句该怎么写，我写的有错
Dim ddr As DataRow = DataTables("记账").SQLfind("项目名称 Like \'%福利%\' And year(日期) = " & year(Date.today) & " And 明细 =\'中秋国庆节\'") ‘找出符合条件的行
If ddr IsNot Nothing
  MessageBox.Show("已存在")
ddr("日期")=#10/31/2014#
DataTables("记账").ddr.load
End If

--  作者：y2287958
--  发布时间：2014/7/7 20:26:00
--

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