主题：[求助]导入EXCEL问题

 判断

 

For x As Integer = 2 To Sheet.Rows.Count -1
    Dim r As Row = Tables("水卫工程量").AddNew '添加2行
   
   
    For y As Integer = 0 To sts.Length -1
        If Tables("水卫工程量").Cols(sts(y)).IsBoolean Then
            If sheet(x,y).text = "true" Then
                r(sts(y)) = True
            Else
                r(sts(y)) = False
            End If
        Else
            r(sts(y)) = sheet(x,y).text
        End If
       
    Next
Next

 你excel的逻辑列，是字符还是什么？你msgbox看看。