主题：导入数据

帮忙看下代码哪出错了

谢谢各位了

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