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


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

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

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
SQLQuery多表提取数据问题  发帖心情 Post By:2009/9/11 11:35:00 [只看该作者]

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

If cm.value = "" then
    MessageBox.Show("请选择帐号!","提示")
    Return
end if

dim Filter as string = "收付日期 >= #" & Vars("起始日期") & "# and 收付日期 <= #" & Vars("结束日期") & "# and 收付帐号 = '" & cm.value & "'"
dt.Fill("Select 业务号,收付日期,收付,收付公司,摘要,币制,实际收付金额,收付帐号 From {销帐录入} where filter","myacc",true)

如上的FILTER设置后为何窗口中的Table崩溃,打了个在XX

[此贴子已经被作者于2009-9-11 14:33:08编辑过]

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


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

cm.value 改为 cm.text 看看~ 

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By: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为什么填充不了呢,说找不到列。

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


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

SqlTable 没有 . load() 吧~   

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

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


加好友 发短信
等级:婴狐 帖子:71 积分:703 威望:0 精华:0 注册:2009/7/4 13:56:00
  发帖心情 Post By:2009/9/11 12:11:00 [只看该作者]

"Select [_Identify],业务号,收付日期,收付,收付公司,摘要,币制,实际收付金额,收付帐号 From {销帐录入} where" & filter


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/9/11 12:55:00 [只看该作者]

非常感谢

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/9/11 14:32:00 [只看该作者]

SQLQuery型Table

SQlQuery的Table和SQLTable型的一样,利用Select语句从后台提取数据生成Table,不同的是SQLQuery的Select语句可以从多个表中取数据,但是SQLQuery生成的Table是不能编辑的。

哪位老师帮我将下面的代码利用SELECT语句整合一下,搞了一上午总是报错!
万分感谢!

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() '填充数据


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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/9/11 14:39:00 [只看该作者]

如下是苯办法,不知怎么做才不用转这么大个弯。

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If cm.value = "" then
    MessageBox.Show("请选择帐号!","提示")
    Return
end if

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("日期", GetType(Date))
dtb.AddDef("收支", GetType(String),32)
dtb.AddDef("类别", GetType(String),32)
dtb.AddDef("摘要", GetType(String),32)
dtb.AddDef("币种", GetType(String),32)
dtb.AddDef("金额", GetType(Double))
dtb.AddDef("收支帐号",GetType(String),32)
dtb.AddDef("工作号",GetType(String), 100)
dtb.AddDef("往来",GetType(String), 32)
dtb.Build()
DataTables("统计").DataRows.Clear() '清除原有数据

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("统计") '指定数据接收表
f.DataCols = "日期,收支,类别,摘要,币种,金额,收支帐号,工作号" '指定数据接收列
f.Distinct = False
f.Filter = "[收付日期] >= #" & Vars("起始日期") & "# and [收付日期] <= #" & Vars("结束日期") & "# and 收付帐号 = '" & cm.value & "'"
f.Fill() '填充数据

cmd.CommandText = "SELECT * From {办公开支}"
dim tb1 as datatable = cmd.ExecuteReader()
dim f1 As New Filler
f1.SourceTable = tb1 '指定数据来源
f1.SourceCols = "日期,收支,类别,摘要,币种,金额,收支帐号,往来" '指定数据来源列
f1.DataTable = DataTables("统计") '指定数据接收表
f1.DataCols = "日期,收支,类别,摘要,币种,金额,收支帐号,往来" '指定数据接收列
f1.Distinct = False
f1.Filter = "[日期] >= #" & Vars("起始日期") & "# and [日期] <= #" & Vars("结束日期") & "#  and 收支帐号 = '" & cm.value & "'"
f1.Fill() '填充数据

Tables("报表_Table3").DataSource = DataTables("统计")


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


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

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

 回到顶部
总数 15 1 2 下一页