以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  你已添加了具有相同健的项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171211)

--  作者：zhenghangbo --  发布时间：2021/8/22 12:00:00 --  你已添加了具有相同健的项 dim dtt as date =date.today() Dim drh As DataRow = DataTables("mrhsjcmd").SQLFind("日期 =\'" & dtt & "\'" ) If drh IsNot Nothing Then Else     Dim dt3 As DataTable     cmd.CommandText = "Select * Fro m {用户} where GetDate() >= DateAdd(d, 24,日期 ) Or 日期 Is null  "     dt3 = cmd.ExecuteReader()          Dim  val As  Integer = dt3.DataRows.Count()     Dim i As Integer     For i=1 To val         Dim r As DataRow = dt3.DataRows(i-1)         cmd.CommandText = "Insert Into mrhsjcmd (手机) Values (?)"         cmd.Parameters.Add("@手机",r("手机"))         cmd.ExecuteNonQuery     Next End If for循环的时候用注释掉循环体内语句用output.show（r("手机")）都能正常打印出内容，可以参数化赋值的时候提出错误：你已经添加了相同项的健。 [此贴子已经被作者于2021/8/22 12:52:55编辑过]

--  作者：zhenghangbo --  发布时间：2021/8/22 12:54:00 --   已解决，每次循环都要new一次

--  作者：有点蓝 --  发布时间：2021/8/22 20:23:00 --   不用每次循环都new一次     For i=1 To val cmd.Parameters.clear         Dim r As DataRow = dt3.DataRows(i-1)         cmd.CommandText = "Insert Into mrhsjcmd (手机) Values (?)"         cmd.Parameters.Add("@手机",r("手机"))         cmd.ExecuteNonQuery     Next [此贴子已经被作者于2021/8/22 20:23:30编辑过]