'**********先将其set datagrid1.DataSource=nothing后,再绑定
Public Rs_Jc_Xsfp_Sp As New ADODB.Recordset With Rs_Jc_Xsfp_Sp
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = adoCN
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = "SELECT * FROM Jc_Xsfp_Sp WHERE PINVOICE='" & Trim(W_Jc_Xsfp.Text1(0).Text) & "'ORDER BY ID"
.Open
.Sort = "ID"
End With Set W_Jc_Xsfp.DataGrid1.DataSource = Rs_Jc_Xsfp_Sp
Public Rs_Jc_Xsfp_Sp As New ADODB.Recordset With Rs_Jc_Xsfp_Sp
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = adoCN
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = "SELECT * FROM Jc_Xsfp_Sp WHERE PINVOICE='" & Trim(W_Jc_Xsfp.Text1(0).Text) & "'ORDER BY ID"
.Open
.Sort = "ID"
End With Set W_Jc_Xsfp.DataGrid1.DataSource = Rs_Jc_Xsfp_Sp
解决方案 »
- 想作这样一个东西,望大家给出提示,谢谢!!!!!!!!!!!!!!
- 如何用SendMessage得到ListView的行数,并取得某一行的内容?
- 请问VB6.0中有选项卡吗?有怎么调出来呢?
- 如何检测指定进程是否存在
- 为什么以下代码出现0号错误~但是也能执行得到正确结果
- 哥们,快来帮我纠正以下这个小程序的一个小错误?先谢过,在线等!即刻结贴!
- 高手请进,场景类问题
- ~_~ 问个问题:用 ado + access 和 ado + sqlserver 在vb代码中哪里有区别...........下午揭贴,急呀!!!!!!!!!
- 如何用vb程序读取asp,php的网页信息,提取其中有用的信息。
- 那里有VB的反编译软件下载?
- 编译后的问题:凡调用datareport控件的都出问题,说713错误,定义的应用程序或对象错误,怎么解决啊?
- 这样的报表怎么编阿????谢谢了!!各位大侠进来看看!!
Set rsMy = New Recordset
rsMy.Open "Select * From Employees", cnMy, adOpenStatic 'cnMy是已经打开的连接
Set DataGrid1.DataSource = Nothing '加了这句也不行
Set DataGrid1.DataSource = rsMy
myRs.CursorLocation = adUseClient
多谢各位!