Foxtable(狐表)用户栏目专家坐堂 → SQLQuery多表提取数据问题


  共有21697人关注过本帖树形打印复制链接

主题:SQLQuery多表提取数据问题

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/11 11:45:00 [显示全部帖子]

cm.value 改为 cm.text 看看~ 

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/11 12:06:00 [显示全部帖子]

SqlTable 没有 . load() 吧~   

不对的话就算帮你顶了······

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/11 12:29:00 [显示全部帖子]

需要特别注意的是,如果只想取部分列生成SQLTable,那么必须包括主键列在内
呵呵,外部数据源也必须加载主键列的啊~     还有 where & filter  学习了

[此贴子已经被作者于2009-9-11 12:34:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/11 15:41:00 [显示全部帖子]

丢个项目上来吧,太长的代码看了晕,不如有个项目实测好,因为大家都在学习啊~   只有真正高手才能一看就明白的···

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/11 19:24:00 [显示全部帖子]

以下是引用狐哥在2009-9-11 12:00:00的发言:
呵,不是这个问题,应是设置了变量的问题:filter.

我不设此变量则通过。

另请教一个问题:

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dt As table = tables("报表_Table3")

If cm.value = "" then
    MessageBox.Show("请选择帐号!","提示")
    Return
end if
dt.Fill("Select 收付日期,收付,收付公司,摘要,币制,实际收付金额 From {销帐录入} where 收付日期 >= #" & Vars("起始日期") & "# and 收付日期 <= #" & Vars("结束日期") & "# and 收付帐号 = '" & cm.value & "'","myacc",true)

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT * From {办公开支}"
dim tb as datatable = cmd.ExecuteReader()
dim f As New Filler
f.SourceTable = tb
f.SourceCols = "日期,收支,类别,摘要,币种,金额"
f.DataTable = datatables("报表_Table3")
f.DataCols = "收付日期,收付,收付公司,摘要,币制,实际收付金额 "
f.Distinct = False
f.Filter = "[日期] >= #" & Vars("起始日期") & "# and [日期] <= #" & Vars("结束日期") & "#  and 收支帐号 = '" & cm.value & "'"
f.Fill() '填充数据


SQLtable为什么填充不了呢,说找不到列。

f.DataCols = "收付日期,收付,收付公司,摘要,币制,实际收付金额 "         多了一个空格~


 回到顶部