以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  LSY老师,怎么把两个表合并在一个临时表里面?谢谢!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46123)

--  作者:小刚
--  发布时间:2014/2/17 18:12:00
--  LSY老师,怎么把两个表合并在一个临时表里面?谢谢!
LSY老师,怎么把两个表内的某些列数据合并在一个临时表里面?谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并表.rar


--  作者:有点甜
--  发布时间:2014/2/17 19:01:00
--  
 如下
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并表.table




--  作者:小刚
--  发布时间:2014/2/17 19:39:00
--  
谢谢[有点甜]老师图片点击可在新窗口打开查看
--  作者:小刚
--  发布时间:2014/2/17 20:00:00
--  
老师,我把“退货”的数量改成负数了,我的意思的对账单里面[数量]和[金额]也自动变成负数,但是查询出来,还是正数,怎么改变一下?谢谢您!
--  作者:有点甜
--  发布时间:2014/2/17 20:39:00
--  
 改一下sql语句

Dim cname As WinForm.ComboBox = e.Form.Controls("客户名称")
Dim d1 As WinForm.DateTimePicker = e.Form.Controls("日期1")
Dim d2 As WinForm.DateTimePicker = e.Form.Controls("日期2")
Dim filter1 As String = "1=1"
Dim filter2 As String = "1=1"
If cname.Text > "" Then
    filter1 += " and 客户名称 = \'" & cname.text & "\'"
    filter2 += " and 客户名称 = \'" & cname.text & "\'"
End If
If d1.Value <> Nothing Then
    filter1 += " and 出货日期 >= #" & d1.Value & "#"
    filter2 += " and 退货日期 >= #" & d1.Value & "#"
End If
If d2.Value <> Nothing Then
    filter1 += " and 出货日期 <= #" & d2.Value & "#"
    filter2 += " and 退货日期 <= #" & d2.Value & "#"
End If
Dim sql As String = "select 订单号, 下单日期, 客户名称, 客户型号, 订单数量, 出货日期, 出货数量, 单价, 出货数量*单价 as 金额, 备注 from {出货}" _
                & " where " & filter1 _
                & " union Select 订单号, \'退货\', 客户名称, 客户型号, \'退货\', 退货日期, 退货数量, 单价, -退货数量*单价 As 金额, 备注 from {生产}" _
                & " where " & filter2
e.Form.Controls("Table1").Table.fill(sql, "订单数据库", True)

--  作者:小刚
--  发布时间:2014/2/17 20:57:00
--  
谢谢老师,那 【退货】表里面的“退货数量”那一列,怎么设置无论输入正数还是负数,都显示负数呢?
--  作者:有点甜
--  发布时间:2014/2/17 21:09:00
--  
 呃……这个你就要编写drawcell事件了。

if e.col.name = "退货数量" then
    if e.row.isnull(e.col.name) = false then
        e.text = "-" & abs(e.row(e.col.name))
    end if
end if
[此贴子已经被作者于2014-2-17 21:11:05编辑过]

--  作者:小刚
--  发布时间:2014/2/17 21:54:00
--  

再追问一个问题:导出这个临时表,该怎么写代码

 

Dim ex As New Exporter
ex.SourceTableName = "??" \'指定导出表
If FileSys.FileExists("c:\\EXCEL\\对账单.xls") Then
    FileSys.DeleteFile("c:\\EXCEL\\对账单.xls")
End If
ex.FilePath = "c:\\EXCEL\\对账单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "订单号, 下单日期, 客户名称, 客户型号, 订单数量, 出货日期, 出货数量, 单价,金额,备注" \'指定导出字段
ex.Filter = DataTables("??").LoadFilter
\'指定导出条件
ex.Export() \'开始


--  作者:有点甜
--  发布时间:2014/2/17 22:15:00
--  
Dim ex As New Exporter
ex.SourceTableName = e.Form.Controls("Table1").Table.DataTable \'指定导出表
If FileSys.FileExists("c:\\EXCEL\\对账单.xls") Then
    FileSys.DeleteFile("c:\\EXCEL\\对账单.xls")
End If
ex.FilePath = "c:\\EXCEL\\对账单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "订单号, 下单日期, 客户名称, 客户型号, 订单数量, 出货日期, 出货数量, 单价,金额,备注" \'指定导出字段
\'指定导出条件
ex.Export() \'开始

--  作者:小刚
--  发布时间:2014/2/17 22:29:00
--  
谢谢老师!