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编辑过]
加好友 
发短信
Post By：2021/8/22 12:00:00 [只看该作者]
