Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月,出入库类型,出入库存单位名称,类型,材质 Fr om {库存表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年|月|出入库类型|出入库存单位名称|类型|材质")
Dim jb As New SQLJoinTableBuilder("库存表查询","库存表主表")
jb.C
jb.AddTable("库存表主表","单据编号","库存表","单据编号")
jb.AddCols("{库存表主表}.日期","{库存表主表}.单据编号","{库存表主表}.出入库存单位名称","{库存表主表}.承运人","{库存表主表}.出入库类型","{库存表主表}.出入库类型编号","{库存表主表}.简称","名称","编号","规格","类型","入库数量","出库数量","库存数量","单位","库存件数","重量","库存重量","备注","附件","生产单号","采购明细单号","订单编号","客户单号","包装","存放区","产品名称","入库件数","出库件数","结构","材质")
jb.AddExp("年","Year({库存表主表}.日期)",True)
jb.AddExp("月","month({库存表主表}.日期)",True)
jb.Build()
e.form.controls("Table1").Select
e.form.controls("Table1").Table.focus
加好友 
发短信
Post By：2021/6/28 15:10:00 [显示全部帖子]
