第一段代码:
Dim dr As DataRow = DataTables("预报名表").SQLFind("订单编号='" & s & "' and 是否支付成功 is null ")
If dr IsNot Nothing Then
dr("是否支付成功") = "支付成功"
dr.Save
End If
第二段代码:
Dim cmd As new SQL Command
cmd.Connecti
Dim dt As DataTable
cmd.Com mandText = "S elect * F rom {预报名表} W HERE 订单编号='" & s & "' and 是否支付成功 is null "
dt = cmd.ExecuteReader(True) '记得将参数设置为True
If dt.DataRows.Count > 1 Then
dt.DataRows(0)("是否支付成功") = "支付成功"
'dt.DataRows(1).Delete() '删除用代码
dt.Save()
End If
'
问题是:第一段代码能保存,第二段代码保存不了。