求救﹗ 關于DataCombo的一個難題???
各位高手﹐
小弟遇到一難題不知如何解決是好﹐我的DataCombo在專案中運行完全正確。可是當我生成EXE文件之后就不正常了。具體情況如下﹕
1﹑第一次載入表單時﹐datacombo還是正常﹐可以下拉﹐可以選定。可是﹐再次show表單時﹐DataCombo的問題就來了﹐只可以將其點開﹐不可以下拉﹐也不可以選定﹐不知其因。怪怪!
2﹑我的DataCombo與adodb.recordset綁定﹐當關閉帶DataCombo的表單時﹐為了考慮下次調用此表單時更快速﹐我用的是me.visible = false ,而不是unload me ﹐不知是不是這個原因。
问题点数：0、回复次数：11Top
1 楼btone（子陵）回复于 2003-06-02 17:21:29 得分 0
可能是你的没有rs.close 或者set rs = nothing
还有，添加DataCombo时候最好在Form_load()中！这样不用多次调用，多次调用可以在前面加一句Datacombo.clearTop
2 楼btone（子陵）回复于 2003-06-02 17:24:32 得分 0
还有，你节省的时间实际上是很少的一丁点，除非你的下拉上万条记录，如果真是这样，也没必要用下拉了，选择时眼睛多花了，还有可以me.hideTop
3 楼starskyli（）回复于 2003-06-02 17:30:32 得分 0
btone(子陵),你好﹐我按照你說的方法做了﹐可是這樣不行喔.
Private Sub Form_Load()
Set rsposi_name = New ADODB.Recordset
rsposi_name.Open "select posi_id,posi_desc from posiname order by posi_id", cn1, adOpenKeyset, adLockReadOnly, adCmdText
Set cboposi.RowSource = rsposi_name
rsposi_name.Close
Set rsposi_name = Nothing
End Sub
是不是哪里錯了。rs.close 和 set rs = nothing 應放在哪里呢﹖Top
4 楼tiande（天地）回复于 2003-06-02 17:31:07 得分 0
你有没有改过datacombo中的属性Locked?如果要是改过的话那就不能再选择内容了！
Top
5 楼tiande（天地）回复于 2003-06-02 17:33:47 得分 0
btone(子陵)他所说的RS就是你所定义的rsposi_nameTop
6 楼starskyli（）回复于 2003-06-02 17:42:22 得分 0
沒有一處代碼改變過datacombo中的locked值﹐生成Exe之后﹐它的征狀就和locked = true 一樣﹐但可以用鍵盤移動及選定﹐真是怪了﹐在專案里運行又是正常的。Top
7 楼starskyli（）回复于 2003-06-03 09:53:38 得分 0
各位高手﹐請賜教吧﹐我急著要用啊﹗Top
8 楼starskyli（）回复于 2003-06-03 17:34:28 得分 0
怎么一天都沒人回復我呢﹐急死了﹐等著用啊~~Top
9 楼sxs69（）回复于 2003-06-03 20:05:10 得分 0
代码贴出来Top
10 楼xinshou1979330（Success.java）回复于 2003-06-04 07:10:27 得分 0
sql = "select*from Table"
Set rs = ExecuteSQL(sql) ************一个连接函数
Set DataCombo1.DataSource = rs
DataCombo1.DataField = "id" **************ID 为 一个字段名
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "id"
DataCombo1.Text = ""
楼主这样连接一下
偶已经连接成功了Top
11 楼starskyli（）回复于 2003-06-04 08:48:59 得分 0
Private Sub cmdEdit_Click() '在一個form中調用另一個form
FrmSpecEdit.Show 1, FrmSpecPosi 'frmspecedit為被調用form
End Sub
FrmSpecEdit的代碼如下:
Private Sub Form_Load()
Set rsmemo = New ADODB.Recordset
rsmemo.Open "select * from specpsmemo order by memo_id", cn1, adOpenDynamic, adLockReadOnly, adCmdText
Set cbomemo.RowSource = rsmemo
'cbomemo.datafiled 等已經在控件屬性里寫好.
End Sub
'關閉form
Private Sub cmdcancel_Click()
Me.Visible = False
End Sub
'關閉form時我不是用的unload me ,因為我不想每次show表單時﹐都運行Form_Load(),不知問題出在哪里﹐在專案里運行完全正常﹐生成Exe時就出現Top所述的問題.Top
