※間違いがありました。失礼しました

最初の書き込みで

Dim DgA As String = DataGridView1.CurrentRow.Cells("年齢").Value.ToString

Dim DgB As String = DataGridView1.CurrentRow.Cells("名前").Value.ToString

Dim DgA As String = DataGridView1.CurrentRow.Cells("住所").Value.ToString

Dim DgB As String = DataGridView1.CurrentRow.Cells("性別").Value.ToString

と書かれてますが

Dim DgA As String = DataGridView1.CurrentRow.Cells("年齢").Value.ToString

Dim DgB As String = DataGridView1.CurrentRow.Cells("名前").Value.ToString

Dim DgC As String = DataGridView1.CurrentRow.Cells("住所").Value.ToString

Dim DgD As String = DataGridView1.CurrentRow.Cells("性別").Value.ToString

の間違いでした。

最初の書き込みなので、削除する事が出来ないので此方に記載します


>もちださん

すみません。確かに説明不足でした。

データベースには

「23,ＶＢ太郎,ＶＢ県ＶＢ市0-0-0,男性」
「18,ＶＢ子,ＶＢ県ＡＫ市0-1-2,女性」
「56,ＶＢ爺,ＶＢ県Ｍ４市5-7-8,男性」

三つのデータを入れています。

>Debug Print

Dim DgB As String = DataGridView1.CurrentRow.Cells("性別").Value.ToString

Msgbox(DgB)

で確認すると、ＶＢ子は「女性」、それ以外の二人は「男性」と表示帰ってきました。

>スペース
スペースは入っていませんが、固定桁を短く設定し直しましたが同じ状況になっています。

>AAとaa
すみません。この掲示板に書き込む際の入力ミスです。
実際のコードは全て大文字で入力されています。

>数字は文字列の扱い
訂正して確認しましたが、結果は変わりませんでした。


何かのきっかけになればと思いますが

ＶＢ太郎→VB子→ＶＢ爺の順番で押して行くと

Dim DgD As String = DataGridView1.CurrentRow.Cells("性別").Value.ToString



MsgBox(DgD)



IF DgD = "男性" Then

   DgD = 0

Else

   DgD = 1

End IF



MsgBox(DgD)

を実行してみると

ＶＢ太郎、最初のMsgBoxで"男性",最後のMsgBoxで"1"
VB子、最初のMsgBoxで"女性",最後のMsgBoxで"1"
VB爺、最初のMsgBoxで"男性",最後のMsgBoxで"1"
と表示されました。