|
Dim sql As String
Forms("库存综合明细").text = vars("hpmc") & vars("ksrq") & "至" & vars("jsrq") & "的进销单明细"
sql = "select 日期,单号,项次,类型,往来单位,仓库,货品编码,货品名称,规格型号,单位,数量,单价,金额 from 进销单明细"
sql =sql & " where 货品编码 = '" & vars("hpbm") & "'"
sql =sql & " and 日期 >= #" & vars("ksrq") & "# and 日期 <= #" & vars("jsrq") & "#"
sql =sql & " order by 日期,类型,单号"
Tables("库存综合明细_Table1").Fill(sql,"mydata",True)
Tables("库存综合明细_Table1").position = 0
Syscmd.Row.Insert()
执行CurrentTable.InsertNew()时，系统提示“此表不支持插入功能”，怎么办？我想在Tables("库存综合明细_Table1")的第一行插入期初数量，以反映出入库的变化情况。
|
加好友 
发短信
Post By：2012/10/19 15:27:00 [只看该作者]
