Vb.net 从字符串“转换”；名称“；输入'；整数'；写入文本文件时无效

我在这个问题上花了大约一个小时，找不到解决办法。错误在以下行中： sw.Write（.Item（“Name”）.ToString&“，”）

名称字段是字符串数据类型

If File.Exists(fileSavePath) Then
    Using sw As StreamWriter = New StreamWriter(fileSavePath, False)
        'Write Column Headers
        sw.Write("Name" & "," & "Unit Number" & "," & "Sunday" & "," & "Monday" & "," & "Tuesday" & "," & "Wednesday" & "," & "Thursday" & "," & "Friday" & "," & "Saturday")
        sw.WriteLine()

        'Write Attendance Information
        For i As Integer = 0 To ScoutDataSet.Tables("AllClasses").Rows.Count - 1
            If ScoutDataSet.Tables("AllClasses").Rows(i).Item("UnitNumber").ToString = troopNumber Then
                With ScoutDataSet.Tables("AllClasses").Rows
                    sw.Write(.Item("Name").ToString & ",")              'Write Name

                    sw.Write(.Item("UnitNumber").ToString & ",")        'Write Unit Number

                    sw.WriteLine() ' Go to next scout
                End With
            End If
        Next
    End Using
End If

---

您的

With

语句用于

ScoutDataSet.Tables（“AllClass”）.Rows

-即行的集合，因此该集合上的

.Item

需要行索引。相反，您希望使用ScoutDataSet.Tables（“AllClasses”）.Rows（i）：

---

有时候你只需要另一双眼睛。非常感谢。

'Write Attendance Information
For i As Integer = 0 To ScoutDataSet.Tables("AllClasses").Rows.Count - 1
    If ScoutDataSet.Tables("AllClasses").Rows(i).Item("UnitNumber").ToString = troopNumber Then
        With ScoutDataSet.Tables("AllClasses").Rows(i)
            sw.Write(.Item("Name").ToString & ",")              'Write Name
            sw.Write(.Item("UnitNumber").ToString & ",")        'Write Unit Number
            sw.WriteLine() ' Go to next scout
        End With
    End If
Next