程序报告出错，环境设计器已打开
编号：QA004524
建立日期: 2002年1月20日 最后修改日期：2002年1月20日
所属类别：
佚名:
操作系统：WIN
编程工具：VB6
问题：我是一名初学者，在内蒙古锡盟，信息少，恳请帮助。我在用VB开发地理信息系统，利用环境设计器中的ACCESS表进行数据增加，例如增加一台变压器数据，点击该变压器后生成一个临时ACCESS表，将其数据加入到另一表中，当点击第二个变压器时，程序报告出错，环境设计器已打开，如何解决。
附部分代码：Private Sub Command1_Click()
With DataEnvironment1.rsCombyqsj
'.Close
'.Open "select * from byqsj", , adOpenDynamic
.AddNew
.Fields("byqid") = adoPrimaryRS.Fields("id")
.Fields("配变名称") = adoPrimaryRS.Fields("配变名称")
.Fields("配变型号") = adoPrimaryRS.Fields("配变型号")
End With
'byqx.Show 1
'DataEnvironment1.rsCombyqq.Requery
'With DataEnvironment1.rscomtodo
' .Close
' .Open "select * from todo", , adOpenDynamic
'.AddNew
'.Fields("projectid") = DataEnvironment1.rsComprojects.Fields("projectid")
'End With
'frmtodo.Show 1
'DataEnvironment1.rsComprojects.Requery
' Set myrs = DataEnvironment1.rsCombyqq.Fields("command3").value
End Sub
Private Sub Form_Load()
'DataEnvironment1.Combyqsj
'DataEnvironment1.Combyqq
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=c:\byqq.mdb;"
Set adoPrimaryRS = New Recordset
Set myrs = DataEnvironment1.rsCombyqsj
adoPrimaryRS.Open "select 配变名称,配变型号,ID from byqq", db,
adOpenStatic, adLockOptimistic
Dim oText As TextBox
'绑定文本框到数据提供者
For Each oText In Me.txtFields
Set oText.DataSource = myrs
Next
mbDataChanged = False
End Sub
回答:
hippopotamus的意见：
你可以先检测环境设计器是否已经打开，如果已经打开你就先关闭了就可以了。
SOHUZZH的意见：
在程序中试用movelast方法试一下。
此问题由hippopotamus回答。
| |
|
|
| |
|
|
