私は現在、レコードセットから名前フィールドを読み取るだけでなく、後で生成されるレポートにそのフィールドを含めるかどうかを決定すると思われるそのレコードセットからブール値を読み取る選択ケースを持っています。
問題は、VB6では、ブール値をListBox.Selected(i)に割り当てることができたことです。
今では、レコードセット内のブール値に応じて、そのフィールドを何に割り当てるか、選択するかどうかを判断することはできません。
コード:
Do Until rs_1.EOF
'Until we run out of records ...
str_FieldName = rs_1.Fields("FieldName").Value
b_IncludeField = rs_1.Fields("IncludeInBatchReport").Value
Select Case str_FieldName
Case "Sequence"
listbox_Fields.Items.Add("Sequence")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "BldgNo"
listbox_Fields.Items.Add("BldgNo")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "BldgName"
listbox_Fields.Items.Add("BldgName")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "BldgFunc"
listbox_Fields.Items.Add("BldgFunc")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "POC"
listbox_Fields.Items.Add("POC")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Phone"
listbox_Fields.Items.Add("Phone")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "AH_Phone"
listbox_Fields.Items.Add("AH_Phone")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Batch"
listbox_Fields.Items.Add("Batch")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Status"
listbox_Fields.Items.Add("Status")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Region_Req"
listbox_Fields.Items.Add("Region_Req")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Region_Alt"
listbox_Fields.Items.Add("Region_Alt")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Region_Fin"
listbox_Fields.Items.Add("Region_Fin")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
Case "Comments"
listbox_Fields.Items.Add("Comments")
listbox_Fields.SelectedItem(listbox_Fields.Items.Count - 1) = b_IncludeField
End Select
rs_1.MoveNext()
'... until we run out of records.
Loop
ご覧のとおり、SelectedItemを試しましたが、もちろん機能しません。