Private Sub DataCombo1_Change() 'datacombo1為產品名稱
Dim Prod_Nm As String
Prod_Nm = DataCombo1.Text '當產品名稱改變時adodc1跟著改變
Adodc1.RecordSource = "select 規格 from 產品規格設定 where 品名= ' " & Prod_Nm & " ' "
Adodc1.Refresh 'adodc1為adcmdunknown用jet4.0連access2000
DataCombo2.RowSource = Adodc1 '以adodc1為list的來源
DataCombo2.ListField = [規格]
這樣的錯誤出在哪裡阿??
它的反白區會出現在Rowsource