以文本方式查看主题 - 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老师,怎么把两个表内的某些列数据合并在一个临时表里面?谢谢!
|
||||
-- 作者:有点甜 -- 发布时间: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 |
||||
-- 作者:有点甜 -- 发布时间: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 -- 谢谢老师! |