- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 组合查询表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109326)
-- 发布时间：2017/11/9 15:08:00
-- 组合查询表
甜老师，
此主题相关图片如下：微信截图_20171109150349.png
因为产品吊牌价 没有分到颜色和尺码
而销售明细有分到颜色和尺码
现在我这样的代码在组合时，就只有这个款的第一行有匹配到吊牌价，有没有别的方式可以这一款的所有颜色尺码都匹配上 吊牌价呢
Dim b1 As New sqlgroupTableBuilder("统计表1","店铺销售明细商品")
Dim dt1 As fxDataSource
b1.C
b1.Groups.AddDef("店仓ID")
b1.Groups.AddDef("商品款号")
b1.Groups.AddDef("颜色")
b1.Groups.AddDef("尺码")
b1.Groups.AddDef("店仓名称","销售_店仓名称")
b1.Totals.AddDef("销售数量","销售_数量")
b1.filter = filter & " and " & filter2
b1.CommandTimeOut = 600
dt1 = b1.BuildDataSource()
Dim b2 As New SQLgroupTableBuilder("统计表2","此刻库存")
Dim dt2 As fxDataSource
b2.C
b2.Groups.AddDef("店仓ID")
b2.Groups.AddDef("商品款号")
b2.Groups.AddDef("颜色")
b2.Groups.AddDef("尺码")
b2.Groups.AddDef("店仓名称","可用库存_店仓名称")
b2.Totals.AddDef("可用库存","可用库存_数量")
b2.filter = filter2
b2.CommandTimeOut = 600
dt2 = b2.BuildDataSource()
Dim b3 As New SQLgroupTableBuilder("统计表3","m_product")
Dim dt3 As fxDataSource
b3.C
b3.Groups.AddDef("name")
b3.Groups.AddDef("pricelist","吊牌价")
b3.filter = filter3
b3.CommandTimeOut = 600
dt3 = b3.BuildDataSource()
Dim nms1 As String() = {"商品款号","店仓ID","颜色","尺码"} \'指定连接列
Dim nms2 As String() = {"商品款号"} \'
Dim nms3 As String() = {"name"} \'
dt1.Combine(nms1,dt2,nms1)
dt1.Combine(nms2,dt3,nms3)
forms("otb").Controls("table1").Table.DataSource = dt1
-- 发布时间：2017/11/9 15:31:00
--
生成后处理，如
Dim t As Table = Tables("表A")
Dim p As String = Nothing
For Each r As Row In t.rows
If r.IsNull("第一列") Then
r("第一列") = p
Else
p = r("第一列")
End If
Next
-- 发布时间：2017/11/9 16:20:00
--
厉害了，甜老师。按照前一行来取值。
不过甜老师，遇到了一个问题。
有的产品的有的尺码有库存，没有销售，就没有按顺序来了。
此主题相关图片如下：微信截图_20171109160237.png
我尝试先排序，再取，但是第一行就没有吊牌了，因为他是没有销售，之前是没有吊牌的，现在排到第一行，也就没有了。。
forms("otb").Controls("table1").Table.sort = "商品款号,颜色,尺码"
[此贴子已经被作者于2017/11/9 17:04:44编辑过]
-- 发布时间：2017/11/9 16:26:00
--
Dim t As Table = Tables("表A")
Dim p As String = Nothing
For Each r As DataRow In t.DataTable.Select("", "第二列,第三列,第一列 desc")
If r.IsNull("第一列") Then
r("第一列") = p
Else
p = r("第一列")
End If
Next
-- 发布时间：2017/11/9 16:46:00
--
可以了。甜老师你简直是我的神！！
-- 发布时间：2017/11/9 17:47:00
--
甜老大，PictureBox怎么绑定查询表里的网址列
Dim
pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.ImageFile = "http://www.baidu.com/img/bdlogo.gif" r("产品图片链接")
此主题相关图片如下：微信截图_20171109174423.png
此主题相关图片如下：微信截图_20171109174504.png
-- 发布时间：2017/11/9 18:31:00
--
不是直接绑定就可以了？直接绑定表列，就可以了的。
http://www.foxtable.com/webhelp/scr/1860.htm
-- 发布时间：2017/11/9 19:57:00
--
甜老大，
这个图片网址有点奇怪，
在360浏览器可以打开，在谷歌和IE以及FT网页浏览器都不能打开
此主题相关图片如下：微信截图_20171109195746.png
此主题相关图片如下：微信截图_20171109195412.png
此主题相关图片如下：微信截图_20171109195842.png
此主题相关图片如下：微信截图_20171109195518.png
[此贴子已经被作者于2017/11/9 19:59:13编辑过]
-- 发布时间：2017/11/9 20:00:00
--
是不是需要登录后，才能查看或者下载？你360浏览器登录过？
-- 发布时间：2017/11/9 20:09:00
--
哦哦，对，360登录过。
那FT能做登录处理吗？
有账号密码
[此贴子已经被作者于2017/11/9 20:09:32编辑过]