失敗例

Select Case dbs.FieldValue("在庫表示単位ID", 0) '在庫表示単位ID
Case G_バラID 'バラ
.MCell(valMRow, "移動単位ID").Value = dbs.FieldValue("バラ単位ID", 0)
Case G_パックID 'パック
.MCell(valMRow, "移動単位ID").Value = dbs.FieldValue("パック単位ID", 0)
Case G_ケースID 'ケース
.MCell(valMRow, "移動単位ID").Value = dbs.FieldValue("ケース単位ID", 0)
End Select