Dim tb0 As Table = tbl0.Table
Dim tbl As WinForm.Table = e.Form.Controls("Table1")
Dim tb As Table = tbl.Table
Dim dt As DataTable
Dim sum As Double
Dim zdh,nm1,nm2,str,gys As String
Dim cmd As new SQLCommand
cmd.C
Select Vars("mtb")
Case "采购订单明细"
nm1 = tb0.Current("制单人")
cmd.CommandText = "select 关联ID as 申请单号,子单号,制单人,申请部门,申请人,采购部门,采购员,审核人,货品编码,货品名称,规格型号,计量单位,计划数量 as 数量,需求日期,税率,计划类别,备注_技术标准及质量 from {采购计划申请明细} where 采购员 = '" & nm1 & "' And 审核人 > '" & """" & "' ORDER BY 关联ID"
tb.DataSource = dt
tb.DataTable.DataCols.Add("完成数量",Gettype(Double),"Convert(IsNull(Sum(Child(采购计划_采购订单).数量),0) * 10000, 'System.Int64') / 10000") ' & "-" & sum)
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
错误提示如下：
此主题相关图片如下：qq截图20130402110655.png
用这个太卡，要10多秒才出拉窗口: cmd.CommandText = "select 关联ID as 申请单号,子单号,制单人,申请部门,申请人,采购部门,采购员,审核人,货品编码,货品名称,规格型号,计量单位,计划数量 as 数量,需求日期,税率,计划类别,备注_技术标准及质量,(Select sum(数量) from {采购订单明细} where {采购订单明细}.申请子单号 = {采购计划申请明细}.子单号) As 完成数量 from {采购计划申请明细} where 采购员 = '" & nm1 & "' And 审核人 > '" & """" & "' ORDER BY 关联ID"
[此贴子已经被作者于2013-4-2 13:45:41编辑过]
加好友 
发短信
Post By：2013/4/2 11:11:00 [只看该作者]
