我的软件就剩这么一个问题了,而且我自己解决了快一个月了,老大们帮帮我吧
con.Close
set con=nothing
请问以上代码是什么意思?我好像没用过啊?
我在程序中是这样写的
data1.databasename= "d:\mydata.mdb"
data1.recordsource= "aaa"
我在另一个简单的程序中试验了一下用一下代码关闭的
data1.databasename=""
data1.refresh
这样就可以了,可是回到我的代码中,老是提示“对象变量或with块未设置”,我看了看出错的代码实在另一个窗体中
If Form1.ListView1.ListItems.Count > 0 Then
Dim i, Count As Integer
Count = Form1.ListView1.SelectedItem.Index
Form1.Data3.Recordset.MoveFirst
i = 1
Do While i < Count
Form1.Data3.Recordset.MoveNext
i = i + 1
Loop
Form1.ListViewItem = Count
Text1.Text = Form1.Data3.Recordset.Fields("jfdw")
Text2.Text = Form1.Data3.Recordset.Fields("jfje")
Yje = Text2.Text
Text5.Text = Form1.Data3.Recordset.Fields("pjbh")
Text4.Text = Form1.Data3.Recordset.Fields("bz")
If TxN = "" Then
Text3.Text = "系统"
Else
Text3.Text = TxN
End If
End If
我在程序中用了十几个data控件,我一一把他们的databasename属性都清空了,怎么还不行啊?快帮帮我吧,我的软件就剩下这么一个问题没有解决了,不能让我功败垂成啊。望朋友们教教我!朋友们请留下信箱好不好,如果你们的回答我看不太懂的话我再写信问你们。我的信箱是sdmyhy@21cn.com