質問編集履歴
1
コードの挿入で入力しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
|
|
12
12
|
|
|
13
13
|
|
|
14
|
+
|
|
15
|
+
```ここに言語を入力
|
|
14
16
|
|
|
15
17
|
Dim sSQL as string = "SELECT * FROM STAFFMASTER"
|
|
16
18
|
|
|
@@ -30,6 +32,8 @@
|
|
|
30
32
|
|
|
31
33
|
Dim Arr_string As String() = DistDT.Rows.Cast(Of DataRow).Select(Function(row) row("STAFCODE")).ToArray()
|
|
32
34
|
|
|
35
|
+
```
|
|
36
|
+
|
|
33
37
|
↑ここで
|
|
34
38
|
|
|
35
39
|
「Option Strict On では 'Object()' から 'String()' への暗黙的な変換は許可されていません。」
|
|
@@ -38,7 +42,11 @@
|
|
|
38
42
|
|
|
39
43
|
↓なので、CType()でくくってやってみても・・
|
|
40
44
|
|
|
45
|
+
```ここに言語を入力
|
|
46
|
+
|
|
41
47
|
Dim arr_string As String() = CType(DistDT.Rows.Cast(Of DataRow).Select(Function(row) row("STAFCODE")).ToArray(), String())
|
|
48
|
+
|
|
49
|
+
```
|
|
42
50
|
|
|
43
51
|
|
|
44
52
|
|