请问如何将Access中VBA的多列列表框控件的某一行/列上的元素单独赋值?
比如创建一个9列不定长的列表框My_listbox(Column Count=9),先从一个数据库Table中为整个listbox赋初值:My_listbox.RowSource = "SELECT my_Number, My_name FROM Data_All WHERE my_Number=" & Text1.Value
然后用My_listbox.Column(j,i)得到i行j列上的元素A的值,至此一切正常。
但是我如何修改元素A呢?用My_listbox.Column(j,i)会报错Real time error 424: Object required,listbox还有其它的方式赋值吗?
For i = 0 To My_listbox.ListCount - 1 'ok, ListCount is 12
If My_listbox.Column(8, i) = "-1" Then 'ok, it's -1 when debugging
My_listbox.Column(8, i) = "-3" 'Real time error 424
...
Next i