以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关联  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94244)
--  作者：yupeng
--  发布时间：2016/12/19 20:46:00
--  [求助]关联

您好  老师  问题我难以表达  请看下面的图片  谢谢您

 


图片点击可在新窗口打开查看此主题相关图片如下：0022.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2016/12/19 21:16:00
--  
上例子测试，没有办法看图片去联想你的逻辑
--  作者：yupeng
--  发布时间：2016/12/20 14:04:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电商进销存.rar

 

老师 密码全部都是888

 

昨天哪个图片改名的功能还是不行。

[此贴子已经被作者于2016/12/20 14:04:52编辑过]
--  作者：有点蓝
--  发布时间：2016/12/20 15:09:00
--  
出库明细，PrepareEdit事件

If e.Col.Name = "颜色" Then
    e.Col.ComboList = DataTables("进货明细").GetComboListString("颜色","款号=\'" & e.Row("款号") & "\'")
End If
--  作者：有点蓝
--  发布时间：2016/12/20 15:34:00
--  
图片那个这样

Dim v As String = Tables("商品表").Current("款号")


Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("图片管理")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = "f:\\bin\\" \'"\\\\Dianshang\\电商共享夹\\ERP系统专用\\图片\\"
    Dim ext As String = FileSys.GetName(dlg.FileName).Split(".")(1)
    Dim filename As String = v & "." & ext
    If FileSys.FileExists(pth & filename) = False Then
        FileSys.CopyFile(dlg.FileName, pth & filename)
    End If
    piv.AddFile(filename)
End If
--  作者：yupeng
--  发布时间：2016/12/20 15:57:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：00.png
图片点击可在新窗口打开查看

 

 

“图片”列里面的名字是改好了，但是并没有复制到指定文件夹内
--  作者：有点蓝
--  发布时间：2016/12/20 16:02:00
--  
改一下：Dim pth As String = "\\\\Dianshang\\电商共享夹\\ERP系统专用\\图片\\"

测试代码没有改过来
--  作者：yupeng
--  发布时间：2016/12/20 16:06:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：00000.png
图片点击可在新窗口打开查看

 

老师  颜色控制很完美

 

明细数量不行，入库时35码列1件都没有，出库还是可以任意填写。

 

库存明细，入库明细-出库明细。这个弄不来。

 

请您再帮我看一下，谢谢您了
--  作者：有点色
--  发布时间：2016/12/20 16:27:00
--  

【明细数量不行，入库时35码列1件都没有，出库还是可以任意填写。】

 

去编写datacolchanging事件

 

http://www.foxtable.com/webhelp/scr/0624.htm

 

【库存明细，入库明细-出库明细】

 

参考 http://www.foxtable.com/webhelp/scr/2305.htm

 
--  作者：yupeng
--  发布时间：2016/12/20 21:04:00
--  

老师  库存统计  请看下图

 

 

 

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("颜色") \'根据型号分组
bd1.Totals.AddDef("第一列","进货_S") \'对数量进行统计
bd1.Totals.AddDef("第二列","进货_M") \'对数量进行统计
bd1.Totals.AddDef("第三列","进货_L") \'对数量进行统计
bd1.Totals.AddDef("第四列","进货_XL") \'对数量进行统计
bd1.Totals.AddDef("第五列","进货_2XL") \'对数量进行统计
bd1.Totals.AddDef("第六列","进货_3XL") \'对数量进行统计
bd1.Totals.AddDef("第七列","进货_4XL") \'对数量进行统计
bd1.Totals.AddDef("第八列","进货_5XL") \'对数量进行统计
bd1.Totals.AddDef("第九列","进货_6XL") \'对数量进行统计
bd1.Totals.AddDef("数量小计","进货_数量小计") \'对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("颜色") \'根据型号分组
bd2.Totals.AddDef("第一列","出库_S") \'对数量进行统计
bd2.Totals.AddDef("第二列","出库_M") \'对数量进行统计
bd2.Totals.AddDef("第三列","出库_L") \'对数量进行统计
bd2.Totals.AddDef("第四列","出库_XL") \'对数量进行统计
bd2.Totals.AddDef("第五列","出库_2XL") \'对数量进行统计
bd2.Totals.AddDef("第六列","出库_3XL") \'对数量进行统计
bd2.Totals.AddDef("第七列","出库_4XL") \'对数量进行统计
bd2.Totals.AddDef("第八列","出库_5XL") \'对数量进行统计
bd2.Totals.AddDef("第九列","出库_6XL") \'对数量进行统计
bd2.Totals.AddDef("数量小计","出库_数量小计") \'对数量进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("退货明细"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("颜色") \'根据型号分组
bd3.Totals.AddDef("第一列","退货_S") \'对数量进行统计
bd3.Totals.AddDef("第二列","退货_M") \'对数量进行统计
bd3.Totals.AddDef("第三列","退货_L") \'对数量进行统计
bd3.Totals.AddDef("第四列","退货_XL") \'对数量进行统计
bd3.Totals.AddDef("第五列","退货_2XL") \'对数量进行统计
bd3.Totals.AddDef("第六列","退货_3XL") \'对数量进行统计
bd3.Totals.AddDef("第七列","退货_4XL") \'对数量进行统计
bd3.Totals.AddDef("第八列","退货_5XL") \'对数量进行统计
bd3.Totals.AddDef("第九列","退货_6XL") \'对数量进行统计
bd3.Totals.AddDef("数量小计","退货_数量小计") \'对数量进行统计
dt3 = bd3.BuildDataSource()

dt1.Combine("颜色",dt2,"颜色") \'将销售统计数据组合到进货统计数据
dt1.Combine("颜色",dt3,"颜色") \'将退货统计数据组合到进货统计数据
Tables("库存统计_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("库存统计_Table1").DataCols  \'用表达式列计算库存数据
    .Add("库存_S",Gettype(Integer), "IsNull([进货_S],0) - ISNULL([出库_S],0) - ISNULL([退货_S],0)")
    .Add("库存_M",Gettype(Integer), "IsNull([进货_M],0) - ISNULL([出库_M],0) - ISNULL([退货_M],0)")
    .Add("库存_L",Gettype(Integer), "IsNull([进货_L],0) - ISNULL([出库_L],0) - ISNULL([退货_L],0)")
    .Add("库存_XL",Gettype(Integer), "IsNull([进货_XL],0) - ISNULL([出库_XL],0) - ISNULL([退货_XL],0)")
    .Add("库存_2XL",Gettype(Integer), "IsNull([进货_2XL],0) - ISNULL([出库_2XL],0) - ISNULL([退货_2XL],0)")
    .Add("库存_3XL",Gettype(Integer), "IsNull([进货_3XL],0) - ISNULL([出库_3XL],0) - ISNULL([退货_3XL],0)")
    .Add("库存_4XL",Gettype(Integer), "IsNull([进货_4XL],0) - ISNULL([出库_4XL],0) - ISNULL([退货_4XL],0)")
    .Add("库存_5XL",Gettype(Integer), "IsNull([进货_5XL],0) - ISNULL([出库_5XL],0) - ISNULL([退货_5XL],0)")
    .Add("库存_6XL",Gettype(Integer), "IsNull([进货_6XL],0) - ISNULL([出库_6XL],0) - ISNULL([退货_6XL],0)")
    .Add("库存_数量小计",Gettype(Integer), "IsNull([进货_数量小计],0) - ISNULL([出库_数量小计],0) - ISNULL([退货_数量小计],0)")
End With


图片点击可在新窗口打开查看此主题相关图片如下：00.jpg
图片点击可在新窗口打开查看