| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 608 人关注过本帖
标题:求助 combox 改变后 datagrid 里的显示相应数据并计算及排序并去除为小于等 ...
只看楼主 加入收藏
xiang1434
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-4-24
结帖率:0
收藏
 问题点数:0 回复次数:6 
求助 combox 改变后 datagrid 里的显示相应数据并计算及排序并去除为小于等于 0 的数据
在combox里输入内容后,在datagrid里显示相应内容。
问题:datagrid里的数据是由两个表组合查询得来。
下记单独查询是可以的,可combox与datagrid关联络就不会了。

下面这个代码可关联但不能计算加减及排序
Private Sub Combo1_click()
Adodc1.RecordSource = "select xhead.name,xslip.porder,xslip.vendor,xslip.kvol,xslip.tjitu,xslip.ddate from xhead inner join xslip on xhead.code=xslip.code where name='" & Combo1.Text & "'"
Adodc1.Refresh
End Sub

下记这个代码可以进行两列加减及排序并去除小于等于0的数据,但是combox值改变后datagrid不能关联改变。
Private Sub Combo2_click()
Adodc2.RecordSource = "select xhead.name as 品名,xslip.porder as 定单号,xslip.vendor as 供应商,xslip.ddate as 发注日期,xslip.kvol-xslip.tjitu as 注残 from xhead inner join xslip on xhead.code=xslip.code where xslip.kvol-xslip.tjitu>0 order by xslip.ddate asc" 'union select name from xhead where name='" & Combo2.Text & "'"
Adodc2.Refresh

请上手帮忙啊,搞了好久了都没搞出来。
搜索更多相关主题的帖子: inner where 
2014-06-18 15:38
xiang1434
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-4-24
收藏
得分:0 
有没有高手指点下呀。
2014-06-18 19:57
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
看不懂,详细解释下问题
2014-06-18 22:52
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
by xslip.ddate asc" 'union select name
中间标点是什么情况?话说没啦到后面看是否被注释么?
2014-06-19 22:38
alike123
Rank: 6Rank: 6
等 级:侠之大者
威 望:8
帖 子:107
专家分:428
注 册:2014-2-10
收藏
得分:0 
同楼上问,你中间的标点应该把后面的代码注释了
2014-06-20 12:52
xiang1434
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-4-24
收藏
得分:0 
因为代码在一起运行时提示“关键字‘union'附近有语法错误。所以把后面的语句注释了。
2014-06-21 13:05
xiang1434
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-4-24
收藏
得分:0 
下面这样的语句对不对

Private Sub Combo2_click()
Adodc2.RecordSource = "select xhead.name as 品名,xslip.porder as 定单号,xslip.vendor as 供应商,xslip.ddate as 发注日期,xslip.kvol-xslip.tjitu as 注残 from xhead,xslip where xhead.code=xslip.code xslip.kvol-xslip.tjitu>0 and name='" & Combo2.Text & "' order by xslip.ddate asc"
2014-06-22 09:51
快速回复:求助 combox 改变后 datagrid 里的显示相应数据并计算及排序并去除为小 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018888 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved