以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导入数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33338)
--  作者：L7
--  发布时间：2013/5/16 9:32:00
--  导入数据

帮忙看下代码哪出错了

谢谢各位了

With e.Form.Controls("dt_ptkc_日期")
If .Value IsNot Nothing Then
 Dim cmd As New SQLCommand
       Dim dt As DataTable
        cmd.C
        cmd.CommandText = "Select * FROM {ptkc} WHERE 日期 >= \'" & e.Form.Controls("dt_ptkc_日期").Value() & "\'"
        dt = cmd.ExecuteReader()

  Dim f As New Filler
   f.SourceTable = DataTables("ptkc") 

   f.SourceCols = "ylmc,ylph,kcgs,kc,ylxxID" 

   f.DataTable = DataTables("盘头_盘点") 

   f.DataCols = "ylmc,ph,kcgs,kczl,ylxxID" 

   f.Fill()
End If
End With
--  作者：Bin
--  发布时间：2013/5/16 9:35:00
--  
代码看起来没什么问题,如果是SQL数据源的话. 你是出现什么问题呢?
--  作者：L7
--  发布时间：2013/5/16 9:41:00
--  

就是导的时候还是会把全部的数据导进去，不会把我筛选的日期那几列导进去
--  作者：Bin
--  发布时间：2013/5/16 9:44:00
--  
你检查你筛选的 dt 是否正常, 如果数据正常 也许是你DataTables("ptkc") 不正常.
那么你用f.SourceTable = DT  看看
--  作者：L7
--  发布时间：2013/5/16 9:46:00
--  
筛选日期是可以筛选出来的  那我试下
--  作者：L7
--  发布时间：2013/5/16 9:52:00
--  

能否帮我改下 谢谢

现在是说ptkc对象名不存在  但表我又重新导了还是不行

不知道到底哪里出了错  ptkc是个视图
--  作者：L7
--  发布时间：2013/5/16 10:12:00
--  
各位高手能否帮忙改下  小妹我不胜感激  谢谢谢谢
--  作者：jspta
--  发布时间：2013/5/16 13:19:00
--  
以下是引用L7在2013-5-16 9:32:00的发言：

帮忙看下代码哪出错了

谢谢各位了

With e.Form.Controls("dt_ptkc_日期")
If .Value IsNot Nothing Then
 Dim cmd As New SQLCommand
       Dim dt As DataTable
        cmd.C
        cmd.CommandText = "Select * FROM {ptkc} WHERE 日期 >= \'" & e.Form.Controls("dt_ptkc_日期").Value() & "\'"
        dt = cmd.ExecuteReader()

  Dim f As New Filler
   f.SourceTable = DataTables("ptkc") ----> dt

   f.SourceCols = "ylmc,ylph,kcgs,kc,ylxxID" 

   f.DataTable = DataTables("盘头_盘点") 

   f.DataCols = "ylmc,ph,kcgs,kczl,ylxxID" 

   f.Fill()
End If
End With

你这个代码想实现什么功能那？个人觉得应该一条SQL语句就能搞定了把

 
--  作者：L7
--  发布时间：2013/5/16 14:38:00
--  

f.SourceTable = DataTables("ptkc")   就是指定数据来源表

ptkc是个盘头库存表 也是个视图
--  作者：jspta
--  发布时间：2013/5/16 14:53:00
--  
以下是引用L7在2013-5-16 14:38:00的发言：

f.SourceTable = DataTables("ptkc")   就是指定数据来源表

ptkc是个盘头库存表 也是个视图

f.SourceTable = dt

 

那你直接添加一个多表查询的视图就可以了，应该不用这样再填充把