专家坐堂-查询表的数据怎样双击当前行复制当前行的数据到销售明细表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询表的数据怎样双击当前行复制当前行的数据到销售明细表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185953)

--  作者：青丘狐
--  发布时间：2023/3/27 22:13:00
--  查询表的数据怎样双击当前行复制当前行的数据到销售明细表

Dim bd2 As New GroupTableBuilder("统计表2", DataTables("入库明细"))
Dim dt2 As fxDataSource

bd2.Groups.AddDef("产地") \'根据型号分组
bd2.Groups.AddDef("品名") \'根据品名分组
bd2.Groups.AddDef("规格") \'根据型号分组
bd2.Groups.AddDef("材质") \'根据型号分组
bd2.Groups.AddDef("长度") \'根据型号分组
bd2.Totals.AddDef("入库件数", "入库_件数") \'对数量进行统计
bd2.Totals.AddDef("入库重量", "入库_重量") \'对金额进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3", DataTables("销售提单明细"))
Dim dt3 As fxDataSource

bd3.Groups.AddDef("产地") \'根据型号分组
bd3.Groups.AddDef("品名") \'根据品名分组
bd3.Groups.AddDef("规格") \'根据型号分组
bd3.Groups.AddDef("材质") \'根据型号分组
bd3.Groups.AddDef("长度") \'根据型号分组
bd3.Totals.AddDef("开单件数", "出库_件数") \'对数量进行统计
bd3.Totals.AddDef("开单重量", "出库_重量") \'对金额进行统计
dt3 = bd3.BuildDataSource()

Dim nms As String() = { "产地", "品名", "规格", "材质", "长度"} \'指定连接列
dt2.Combine(nms, dt3, nms) \'将销售统计数据组合到进货统计数据

Tables("销售库存统计_Table1").DataSource = dt2 \'将统计结果绑定到Table
With DataTables("销售库存统计_Table1").DataCols \'用表达式列计算库存数据
    .Add("库存_件数", GetType(Integer), " IsNull([入库_件数],0) - ISNULL([出库_件数],0) ")
    .Add("库存_重量", GetType(Double), " IsNull([入库_重量],0) - ISNULL([出库_重量],0) ")
End With

Tables("销售库存统计_Table1").SetColVisibleWidth("产地|70|品名|70|规格|70|材质|70|长度|70|入库_件数|70|入库_重量|90|出库_件数|70|出库_重量|90|库存_件数|70|库存_重量|90")

DataTables("销售库存统计_Table1").DataCols("入库_重量").SetFormat("0.000") \'显示为整数
DataTables("销售库存统计_Table1").DataCols("出库_重量").SetFormat("0.000") \'显示为整数
DataTables("销售库存统计_Table1").DataCols("库存_重量").SetFormat("0.000") \'显示为整数

Tables("销售库存统计_Table1").Cols("入库_件数").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").Cols("入库_重量").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").Cols("出库_件数").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").Cols("出库_重量").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").Cols("库存_件数").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").Cols("库存_重量").GrandTotal = True \'指定要合计的列
Tables("销售库存统计_Table1").GrandTotal = True \'显示合计模式

Tables("销售库存统计_Table1").font = New font("宋体", 10.5)

此主题相关图片如下：999.png

查询表的数据怎样双击当前行复制当前行的数据到销售明细表的代码请问怎样写？

--  作者：有点蓝
--  发布时间：2023/3/27 22:28:00
--
把Table1设置为sqlquery，然后到窗口表事件doubleclick事件写代码

if e.table.cols.contains("产地") then
e.cancel=true
Dim dr2 As DataRow = DataTables("销售明细表").AddNew()
dr2("列1") = e.row("列1")
dr2("列2") = e.row("列2")
……
end if