- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码增加列出现错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34842)
-- 发布时间：2013/6/17 16:41:00
--
升级到2013
-- 发布时间：2013/6/17 16:49:00
--
没有办法
-- 发布时间：2013/6/17 16:58:00
--
Dim SQL As String
SQL = "SELECT DISTINCT 场区,品种,批次,year(max(日期)) as 年,month(max(日期)) as 月,0 As 公鸡,0 As 母鸡 From {生产预算} group by 场区,品种,批次"
Dim t As Table=Tables("生产预算_table3")
t.FILL(SQL,"",True)
For Each da As DataRow In t.DataTable.DataRows
Dim dr As DataRow
dr=DataTables("生产预算").Find("批次=\'" & da("批次") & "\' and 场区=\'" & da("场区") & "\'","日期 DESC")
If dr IsNot Nothing Then
da("公鸡")=dr("公鸡存栏")
da("母鸡")=dr("母鸡存栏")
End If
Next
-- 发布时间：2013/6/17 17:14:00
--
Dim t As Table=Tables(e.form.Name & "_table1")
t.fill("Select [_Identify],[出库单编号],[领用部门] From {出库}","",False)
t.DataTable.DataCols.Add("公鸡",Gettype(Integer))
t.DataTable.DataCols.Add("母鸡",Gettype(Integer))
For Each da As DataRow In t.DataTable.DataRows
Dim dr As DataRow
dr=DataTables("出库").Find("出库单编号=\'" & da("出库单编号") & "\' and 领用部门=\'" & da("领用部门") & "\'")
If dr IsNot Nothing Then
da("公鸡")=dr("数量")
da("母鸡")=dr("金额")
End If
Next
可以这样做,但是只能显示不可以保存的.因为是临时列.
-- 发布时间：2013/6/17 18:25:00
--
這樣連賦值也省了:
Dim t As Table=Tables("生产预算_table3")
Dim SQL As String
SQL ="SELECT a.*,公鸡存栏 As 公鸡,母鸡存栏 As 母鸡 From(SELECT DISTINCT 场区,品种,批次,year(max(日期)) as 年,month(max(日期)) as 月 From {生产预算}"
SQL+=" group by 场区,品种,批次) a Inner Join (Select Top 1 * From {生产预算} Order By 日期 DESC) b ON a.场区 = b.场区 and a.批次 = b.批次"
t.FILL(SQL,"",True)
-- 发布时间：2013/6/17 21:33:00
--
呵呵，你有神奇的力量。
