UC知道VB格式出错了
来源：百度知道 编辑：UC知道 时间：2024/06/19 00:34:40
s = Array("日", "一", "二", "三", "四", "五", "六")
Adodc1.Recordset.AddNew
Adodc1.Recordset(" '" + 星期 + "'+'" & s(Weekday(DTPicker1.Value) - 1) & "'") = DTPicker1.Value
s = Array("日", "一", "二", "三", "四", "五", "六")
'For I = 0 To 7
x = "星期" + s(Weekday(DTPicker1.Value) - 1)
Print x
Adodc1.Recordset.AddNew
Adodc1.Recordset(x) = DTPicker1.Value
Adodc1.Recordset.Update
'Print x
'Next I
解决了，谢谢了
Adodc1.Recordset.AddNew
Adodc1.Recordset(" '" + 星期 + "'+'" & s(Weekday(DTPicker1.Value) - 1) & "'") = DTPicker1.Value
s = Array("日", "一", "二", "三", "四", "五", "六")
'For I = 0 To 7
x = "星期" + s(Weekday(DTPicker1.Value) - 1)
Print x
Adodc1.Recordset.AddNew
Adodc1.Recordset(x) = DTPicker1.Value
Adodc1.Recordset.Update
'Print x
'Next I
解决了，谢谢了
Array是数据组，这里你定义s = Array("日", "一", "二", "三", "四", "五", "六")
那么s(0)=日 ，s(1)=一 下标从0开始的，你的s(Weekday(DTPicker1.Value) - 1) & "'") 这里错了，不需要后面的& "'")