编程环境:win2000,VB6,Sp5,ADODC。在开发阶段给ADODC赋ConnectionString和Recordsource,在运行阶段,绑定TextBox控件到ADODC,如下:
Private Sub CmdView_Click()
If CmdView.Caption = "浏览" Then
CmdView.Caption = "停止"
CmdAdd.Enabled = False
CmdSearch.Enabled = False
CmdDel.Enabled = True
CmdUpdate.Enabled = True
Set Text1.DataSource = Adodc1
Text1.DataField = "word"
Set Text2.DataSource = Adodc1
Text2.DataField = "classify"
Set Text3.DataSource = Adodc1
Text3.DataField = "details"
Set Text4.DataSource = Adodc1
Text4.DataField = "comment"
Set Text5.DataSource = Adodc1
Text5.DataField = "english_ab"
Set Text6.DataSource = Adodc1
Text6.DataField = "english"
Else
CmdView.Caption = "浏览"
CmdAdd.Enabled = True
CmdSearch.Enabled = True
CmdDel.Enabled = False
CmdUpdate.Enabled = False
Set Text1.DataSource = Nothing
Text1.DataField = ""
Set Text2.DataSource = Nothing
Text2.DataField = ""
Set Text3.DataSource = Nothing
Text3.DataField = ""
Set Text4.DataSource = Nothing
Text4.DataField = ""
Set Text5.DataSource = Nothing
Text5.DataField = ""
Set Text6.DataSource = Nothing
Text6.DataField = ""
End If
End Sub
在浏览记录时,发现原来数据库中的顺序被打乱,打乱后的排列顺序大致为:131,132,...,159,160,201,202,...210,1,2,...130(假设总共只有210条记录),请问记录的顺序为什么无缘无故被打乱。且在数据库中一切正常啊。
Private Sub CmdView_Click()
If CmdView.Caption = "浏览" Then
CmdView.Caption = "停止"
CmdAdd.Enabled = False
CmdSearch.Enabled = False
CmdDel.Enabled = True
CmdUpdate.Enabled = True
Set Text1.DataSource = Adodc1
Text1.DataField = "word"
Set Text2.DataSource = Adodc1
Text2.DataField = "classify"
Set Text3.DataSource = Adodc1
Text3.DataField = "details"
Set Text4.DataSource = Adodc1
Text4.DataField = "comment"
Set Text5.DataSource = Adodc1
Text5.DataField = "english_ab"
Set Text6.DataSource = Adodc1
Text6.DataField = "english"
Else
CmdView.Caption = "浏览"
CmdAdd.Enabled = True
CmdSearch.Enabled = True
CmdDel.Enabled = False
CmdUpdate.Enabled = False
Set Text1.DataSource = Nothing
Text1.DataField = ""
Set Text2.DataSource = Nothing
Text2.DataField = ""
Set Text3.DataSource = Nothing
Text3.DataField = ""
Set Text4.DataSource = Nothing
Text4.DataField = ""
Set Text5.DataSource = Nothing
Text5.DataField = ""
Set Text6.DataSource = Nothing
Text6.DataField = ""
End If
End Sub
在浏览记录时,发现原来数据库中的顺序被打乱,打乱后的排列顺序大致为:131,132,...,159,160,201,202,...210,1,2,...130(假设总共只有210条记录),请问记录的顺序为什么无缘无故被打乱。且在数据库中一切正常啊。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货