| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]统计表中列的数据类型 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70872) |
| -- 作者：王嘉艺 -- 发布时间：2015/6/30 15:47:00 -- [求助]统计表中列的数据类型 导出的统计表1中“货品编号”的数据类型怎么变成了“备注”？？
|
| -- 作者：大红袍 -- 发布时间：2015/6/30 15:48:00 -- 导出成access？统计表的数据类型是什么的？ |
| -- 作者：王嘉艺 -- 发布时间：2015/6/30 15:49:00 -- CrossTableBuilder("统计表1",sql,"crk.mdb") |
| -- 作者：王嘉艺 -- 发布时间：2015/6/30 15:50:00 -- 是导出access 用 Dim b As New CrossTableBuilder("统计表1",sql,"crk.mdb") b.HGroups.AddDef("货品编号") b.VGroups.AddDef("日期","{0}月") b.VGroups.AddDef("出入库") b.Totals.AddDef("数量") b.Build() |
| -- 作者：大红袍 -- 发布时间：2015/6/30 15:52:00 -- 货品编号 超过255个字符，就自动改成备注类型的。
你具体的问题，做个小例子上来 |
| -- 作者：王嘉艺 -- 发布时间：2015/6/30 15:57:00 -- 我就想把这个统计表上添加一列当前库存，可是库存数据在{库存表}里面是在外部数据源的，统计表1又是临时数据，所以我想把统计表导出到外部数据源然后用SQLJoinTableBuilder添加的 |
| -- 作者：大红袍 -- 发布时间：2015/6/30 16:01:00 -- build以后，循环每一行，用sqlfind查找对应的库存数据，复制给新增的行。
做例子发上来。 |
| -- 作者：王嘉艺 -- 发布时间：2015/7/1 11:26:00 -- 为什么我贴不上代码，提出参数错误！！Dim P_no As String Dim dr_ck As DataRow Dim ck As Single For Each dr As DataRow In Tables("出入库查询_table1").DataTable.DataRows P_no=dr("货品编号") dr_ck = DataTables("原料表").SQLFind("货品编号="&P_no) If dr_ck IsNot Nothing Then \'如果找到的话 Output.Show("库存:" & dr_ck("当前库存")) End If ck=dr_ck("当前库存") dr("当前库存") =ck Next |
| -- 作者：王嘉艺 -- 发布时间：2015/7/1 11:30:00 -- 但是这个输出Output.Show("库存:" & dr_ck("当前库存"))没执行 |
| -- 作者：大红袍 -- 发布时间：2015/7/1 11:33:00 -- Dim P_no As String Dim dr_ck As DataRow For Each dr As DataRow In Tables("出入库查询_table1").DataTable.DataRows P_no=dr("货品编号") dr_ck = DataTables("原料表").SQLFind("货品编号=\'" & P_no & "\'") If dr_ck IsNot Nothing Then \'如果找到的话 Output.Show("库存:" & dr_ck("当前库存")) dr("当前库存") = dr_ck("当前库存") End If Next |