Private Sub Combo4_Click()Dim dbRecordset As New ADODB.RecordsetdbRecordset.Open "Select L1值 from 頭部漏斗 where 帶寬=" & 帶寬 & " and 滾筒直徑=" & xlgtzj & " and 頭部漏斗類型 = '" & Combo4.Text & "'", db, 1, 3Do While Not dbRecordset.EOFCombo5.AddItem dbRecordset.Fields("L1值") & ""dbRecordset.MoveNextLoopdbRecordset.CloseSet dbRecordset = NothingCombo5.ListIndex = 0End SubCombo5.ListIndex = 0 編譯時(shí)提示無效屬性
3 回答
婷婷同學(xué)_
TA貢獻(xiàn)1844條經(jīng)驗(yàn) 獲得超8個(gè)贊
錯(cuò)誤在ModPublic模塊中的GetDBByOpenstr函數(shù)（或過程）
不過最有價(jià)值的是 錯(cuò)誤描述：“操作符丟失”，說明你的SQL語句連接不對(duì)，致使解析
時(shí)候找不到Select Update Insert等操作符，找這些關(guān)鍵字附近
是否有代碼造成SQL語句中斷，比如 少個(gè) &
看代碼是VB6的規(guī)范（可能是其他Basic編譯工具），我沒見過VB6會(huì)提示到模塊 呵呵
當(dāng)年話下
TA貢獻(xiàn)1890條經(jīng)驗(yàn) 獲得超9個(gè)贊
第一個(gè)問題：Combo5.ListIndex = 0，這樣使用時(shí)，一定要先判斷Combo5.ListCount>0才可
第二個(gè)問題，語法結(jié)構(gòu)是沒有問題的，要檢查確定兩點(diǎn)：
1、確認(rèn)語句中所用的字段名和表名是否書寫正確且存在與表中
2、確認(rèn)是否按數(shù)據(jù)表對(duì)應(yīng)的數(shù)據(jù)類型格式進(jìn)行書寫，如數(shù)值型無需加單引號(hào)，字符型需加單引號(hào)等。
慕標(biāo)5832272
TA貢獻(xiàn)1966條經(jīng)驗(yàn) 獲得超4個(gè)贊
Combo5.ListIndex = 0 編譯時(shí)提示無效屬性值
如果出現(xiàn)這個(gè)情況就是沒有添加進(jìn)去值,你調(diào)試一下,可能沒有查到你要的數(shù)據(jù)
添加回答
舉報(bào)
0/150
提交
取消