質問編集履歴
1
コードの挿入で入力しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,6 +5,7 @@
|
|
|
5
5
|
ミニマムコードになります。
|
|
6
6
|
|
|
7
7
|
|
|
8
|
+
```ここに言語を入力
|
|
8
9
|
Dim sSQL as string = "SELECT * FROM STAFFMASTER"
|
|
9
10
|
|
|
10
11
|
Cmd1.CommandText = sSQL
|
|
@@ -14,11 +15,14 @@
|
|
|
14
15
|
Dim DistDT As DataTable = Ds1.Tables(TBL).DefaultView.ToTable(True, "STAFCODE")
|
|
15
16
|
|
|
16
17
|
Dim Arr_string As String() = DistDT.Rows.Cast(Of DataRow).Select(Function(row) row("STAFCODE")).ToArray()
|
|
18
|
+
```
|
|
17
19
|
↑ここで
|
|
18
20
|
「Option Strict On では 'Object()' から 'String()' への暗黙的な変換は許可されていません。」
|
|
19
21
|
|
|
20
22
|
↓なので、CType()でくくってやってみても・・
|
|
23
|
+
```ここに言語を入力
|
|
21
24
|
Dim arr_string As String() = CType(DistDT.Rows.Cast(Of DataRow).Select(Function(row) row("STAFCODE")).ToArray(), String())
|
|
25
|
+
```
|
|
22
26
|
|
|
23
27
|
「'System.Object[]' のオブジェクトを型 'System.String[]' にキャストできません」
|
|
24
28
|
となってしまいます。
|