是呀!最好能把你调用RS的原代码COPY下来,才好说。
解决方案 »
- 请各位高手看看,如何实现避免随机选择重复的数据?
- 打印机
- 在哪呢找到使用activereport的使用方法呢。我不会,太难了。呵呵,谢谢个位。。
- 毕设vb链接数据的程序出错 显示“要求对象”
- 哪位GGJJ能帮我在VBA Access中实现打开文件选择框的功能?100分奉上
- vb拖放文件
- 关于datagrid中的某一password列显示的问题(要显示为****号)
- 请问如何让vb的驱动器列表显示隐含文件夹?(vb5企业版)
- 怎样把Datareport的线加粗。
- VB.NET EXCEL数据导入ACCESS 日期问题
- 如何用ADO连接设置了密码的ACCESS数据库?
- 有这等好事,化了二十元钱,换来了五千元的买书费用。买什么书好呢???
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) Then
Adodc1.Recordset.Fields("日期") = CDate(xdate)
Else
End If
End Sub
上面的代码,就是我实际中碰到问题的那行“Adodc1.Recordset.Fields("日期") = CDate(xdate)”总报错:(
select * from 你要操作的表名
Private Sub Form_Load()
Adodc1.Refresh
End Sub
Private Sub Command1_Click()
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) Then
Adodc1.Refresh
Adodc1.Recordset.Fields("日期") = CDate(xdate)
Else
End If
上面这些代码无法正确执行,能帮忙改一下嘛?
End Sub
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) ThenAdodc1.Recordset.Fields("日期") = CDate(xdate)
Adodc1.Recordset.AddNewElse
End If
End Sub
上面是所有的代码了,执行完以后报错说实时错误‘91’对象变量活with块变量未设置