以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 你已添加了具有相同健的项 (http://foxtable.com/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编辑过]
|