- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- LSY老师，怎么把两个表合并在一个临时表里面？谢谢！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46123)
-- 发布时间：2014/2/17 18:12:00
-- LSY老师，怎么把两个表合并在一个临时表里面？谢谢！
LSY老师，怎么把两个表内的某些列数据合并在一个临时表里面？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并表.rar |
-- 发布时间：2014/2/17 19:01:00
--
如下
-- 发布时间：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
--
谢谢老师！