配列の内容にまとめてチェックをかけるには？ (ID:125385)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 "CLM01"が連続していればもっと簡単になると思われるが、それは置いておいて。 Private Function ConvertToText(ByVal obj As Object) As String If TypeOf (obj) Is String Or IsNumeric(obj) = True Then Return CType(obj, String) Else Return String.Empty End If End Function arrA(0) = ConvertToText(DsTEST1.TEST.Rows(0)("CLM01")) こんなかな、あまり自信なし。