以下是引用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语句就能搞定了把
加好友 
发短信
Post By：2013/5/16 13:19:00 [显示全部帖子]
