質問編集履歴
9
訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -52,7 +52,7 @@
|
|
52
52
|
|
53
53
|
(0,3) 値"男" = (0,3) 値"女"
|
54
54
|
|
55
|
-
のようにnumXとnumYの要素を比べて値を比較して行きたいのですが、
|
55
|
+
のようにnumXとnumYの要素を比べて値を比較して行きたいのですが、回したらエラーで落ちてしまいます。
|
56
56
|
|
57
57
|
どう記述すれば実現出来るのでしょうか?
|
58
58
|
|
8
コード訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -114,8 +114,6 @@
|
|
114
114
|
|
115
115
|
strMark = "B"
|
116
116
|
|
117
|
-
End If
|
118
|
-
|
119
117
|
Next x
|
120
118
|
|
121
119
|
```
|
7
コード訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -88,7 +88,7 @@
|
|
88
88
|
|
89
89
|
'同じ所属(1 or 2)ならば比較する
|
90
90
|
|
91
|
-
If numX.GetValue(x, 0).Equals(numY.GetValue(
|
91
|
+
If numX.GetValue(x, 0).Equals(numY.GetValue(y, 0)) Then
|
92
92
|
|
93
93
|
'カラム数分回し比較する
|
94
94
|
|
6
訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -74,9 +74,15 @@
|
|
74
74
|
|
75
75
|
Dim strMark As String = String.Empty
|
76
76
|
|
77
|
+
'最新numX
|
78
|
+
|
77
79
|
For x As Integer = 0 To numX.GetLength(0) - 1
|
78
80
|
|
79
|
-
|
81
|
+
'初期化処理
|
82
|
+
|
83
|
+
strMark = ""
|
84
|
+
|
85
|
+
'履歴numY
|
80
86
|
|
81
87
|
For y As Integer = 0 To NumY.GetLength(0) - 1
|
82
88
|
|
5
訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -52,7 +52,7 @@
|
|
52
52
|
|
53
53
|
(0,3) 値"男" = (0,3) 値"女"
|
54
54
|
|
55
|
-
のようにnumXとnumYの要素を比べて値を比較したいのですが、1行回したらエラーで落ちてしまいます。
|
55
|
+
のようにnumXとnumYの要素を比べて値を比較して行きたいのですが、1行回したらエラーで落ちてしまいます。
|
56
56
|
|
57
57
|
どう記述すれば実現出来るのでしょうか?
|
58
58
|
|
4
訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
numXとnumYにはDBから取得したレコードの情報が要素順で格納されてます。
|
6
6
|
|
7
|
-
①DBから取得したレコード例:カラム1:所属(1 or 2) カラム2:名前 カラム3
|
7
|
+
①DBから取得したレコード例:カラム1:所属(1 or 2) カラム2:名前 カラム3:年齢 カラム4:性別
|
8
8
|
|
9
9
|
②numXとnumYの中身
|
10
10
|
|
3
訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
numXとnumYにはDBから取得したレコードの情報が要素順で格納されてます。
|
6
6
|
|
7
|
-
①DBから取得したレコード例:カラム
|
7
|
+
①DBから取得したレコード例:カラム1:所属(1 or 2) カラム2:名前 カラム3;年齢 カラム4:性別
|
8
8
|
|
9
9
|
②numXとnumYの中身
|
10
10
|
|
2
コード修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -90,7 +90,7 @@
|
|
90
90
|
|
91
91
|
'同じ所属の各項目を比較し、値に差異があった場合はマークに「A」を代入する
|
92
92
|
|
93
|
-
If numX.GetValue(x,
|
93
|
+
If numX.GetValue(x, z).Equals(numY.GetValue(y, z)) Then
|
94
94
|
|
95
95
|
strMark = "A"
|
96
96
|
|
1
コードを```で囲いました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -68,7 +68,7 @@
|
|
68
68
|
|
69
69
|
###該当のソースコード
|
70
70
|
|
71
|
-
|
71
|
+
```
|
72
72
|
|
73
73
|
' マーク(文字列)
|
74
74
|
|
@@ -112,7 +112,7 @@
|
|
112
112
|
|
113
113
|
Next x
|
114
114
|
|
115
|
-
|
115
|
+
```
|
116
116
|
|
117
117
|
###補足情報(言語/FW/ツール等のバージョンなど)
|
118
118
|
|