Adodc1.RecordSource = "select charge_date from Charge_History_Record"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
DTPicker1.Value = Adodc1.Recordset.Fields("Charge_Date")
Adodc1.Recordset.MoveLast
DTPicker2.Value = Adodc1.Recordset.Fields("Charge_Date")
Else
DTPicker1.Value = Date
DTPicker2.Value = Date
End If
Adodc1.Recordset.Close
Adodc1.ConnectionString = ""
最后两句,运行后还是不行啊!
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
DTPicker1.Value = Adodc1.Recordset.Fields("Charge_Date")
Adodc1.Recordset.MoveLast
DTPicker2.Value = Adodc1.Recordset.Fields("Charge_Date")
Else
DTPicker1.Value = Date
DTPicker2.Value = Date
End If
Adodc1.Recordset.Close
Adodc1.ConnectionString = ""
最后两句,运行后还是不行啊!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货