Sql 最近几天，这样就不会永远把这个答案弄得乱七八糟了。）嗨，大卫，谢谢你对堆栈溢出的贡献！但是，请不要做出任何让步。特别是，“iOS”不是程序代码，因此不应包装在其中。请参见，例如，有关如何正确编辑帖子的指导（以及一些没有帮助的编辑示例）。谢谢（顺便说一句，我

---

最近几天，这样就不会永远把这个答案弄得乱七八糟了。）嗨，大卫，谢谢你对堆栈溢出的贡献！但是，请不要做出任何让步。特别是，“iOS”不是程序代码，因此不应包装在其中。请参见，例如，有关如何正确编辑帖子的指导（以及一些没有帮助的编辑示例）。谢谢（顺便说一句，我会在几天后删除这条评论，这样它就不会永远把这个答案弄得一团糟。）

Dim p1Dt As New DataTable
Dim pDa As New OleDbDataAdapter("SELECT * FROM [Promotional Rates] WHERE Supp_Code=? AND " & _
                                "Product_Code=? AND Rate_Start_One <= DATE() AND " & _
                                "Rate_End_One >= DATE()", con)
pDa.SelectCommand.Parameters.Add("@supplier", OleDbType.VarChar).Value = cmbSupplier.Text
pDa.SelectCommand.Parameters.Add("@product", OleDbType.VarChar).Value = ugr.Cells("Product_Code").Value
pDa.Fill(p1Dt)

Dim deliveryDate As Date
deliveryDate = ugr.Cells("Final_Delivery").Value

Dim p1Dt As New DataTable
Dim pDa As New OleDbDataAdapter("SELECT * FROM [Promotional Rates] WHERE Supp_Code=? " & _
                                "AND Product_Code=? AND Rate_Start_One <= #" & _
                                 deliveryDate & "# AND Rate_End_One >= #" & _
                                 deliveryDate & "#", con)
pDa.SelectCommand.Parameters.Add("@supplier", OleDbType.VarChar).Value = cmbSupplier.Text
pDa.SelectCommand.Parameters.Add("@product", OleDbType.VarChar).Value = ugr.Cells("Product_Code").Value
pDa.Fill(p1Dt)

"SELECT * FROM [Promotional Rates] WHERE Supp_Code=? AND Product_Code=? AND Rate_Start_One " & _
"<= #11/03/2017# AND Rate_End_One >= #11/03/2017#"

"SELECT * FROM [Promotional Rates] WHERE Supp_Code=? AND Product_Code=? AND Rate_Start_One " & _
"<= #2017/03/11# AND Rate_End_One >= #2017/03/11#"

Dim pDa As New OleDbDataAdapter("SELECT * FROM [Promotional Rates] WHERE Supp_Code=? " & _
                             "AND Product_Code=? AND Rate_Start_One <= #" & _
                             deliveryDate.ToString("yyyy'/'MM'/'dd") & "# AND Rate_End_One >= #" & _
                             deliveryDate.ToString("yyyy'/'MM'/'dd") & "#", con)

 Dim deliveryDate As Date = ugr.Cells("Final_Delivery").Value

 Dim p1Dt As New DataTable
 Dim pDa As New OleDbDataAdapter("SELECT * FROM [Promotional Rates] WHERE Supp_Code=? AND " & _
                                 "Product_Code=? AND Rate_Start_One <= ? AND Rate_End_One " & _
                                 ">= ?", con)
 pDa.SelectCommand.Parameters.Add("@supplier", OleDbType.VarChar).Value = cmbSupplier.Text
 pDa.SelectCommand.Parameters.Add("@product", OleDbType.VarChar).Value = ugr.Cells("Product_Code").Value
 pDa.SelectCommand.Parameters.Add("@dFrom", OleDbType.Date).Value = deliveryDate
 pDa.SelectCommand.Parameters.Add("@dTo", OleDbType.Date).Value = deliveryDate
 pDa.Fill(p1Dt)