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

共有3489人关注过本帖树形打印复制链接主题：加载

bagabaga

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

加载

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：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

主题：加载