For n As Integer = 1 To Sheet.Rows.Count -1 Dim r As Row = Tables("统计柱状图设定").AddNew() For m As Integer = 0 To nms.Length - 1
If DataTables("统计柱状图设定").DataCols(nms(m)).isboolean Then If Sheet(n,m).Value = "1" OrElse Sheet(n,m).Value = "true" Then r(nms(m)) = True Else r(nms(m)) = False
End If Else r(nms(m)) = Sheet(n,m).Value End If Next Next
加好友 
发短信
Post By：2018/6/10 22:49:00 [显示全部帖子]
