- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数组代码出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66221)
-- 发布时间：2015/4/1 14:02:00
-- 数组代码出错
下面代码出错，请问问原因，谢谢
Dim Ps As List(Of String)
Ps = DataTables("事件汇总").GetValues("小结", "选择 = true")
Dim s As String = Ps(0)
Dim drs As List(Of DataRow)
drs = DataTables("事件汇总").Select("小结 = s")
Dim dr As DataRow = drs(0)
Dim str As String = dr("调查")
output.Show(str)
-- 发布时间：2015/4/1 14:07:00
--
Dim Ps As List(Of String)
Ps = DataTables("事件汇总").GetValues("小结", "选择 = true")
if ps isnot nothing then
Dim s As String = Ps(0)
Dim drs As List(Of DataRow)
drs = DataTables("事件汇总").Select("小结 = s")
if drs isnot nothing then
Dim dr As DataRow = drs(0)
Dim str As String = dr("调查")
output.Show(str)
end if
end if
-- 发布时间：2015/4/1 14:08:00
--
你要判断一下是否查找到数据.万一没找到 你取第一条数据当然会报错
-- 发布时间：2015/4/1 14:30:00
--
还是报错，说找不到[s]列，明明定义了s为字符串。
此主题相关图片如下：找不到s15年04月01日1424_1.jpg
-- 发布时间：2015/4/1 14:32:00
--
Dim Ps As List(Of String)
Ps = DataTables("事件汇总").GetValues("小结", "选择 = true")
If ps IsNot Nothing Then
Dim s As String = Ps(0)
Dim drs As List(Of DataRow)
drs = DataTables("事件汇总").Select("小结 = \'" & s & "\'")
If drs IsNot Nothing Then
Dim dr As DataRow = drs(0)
Dim str As String = dr("调查")
output.Show(str)
End If
End If
-- 发布时间：2015/4/1 14:32:00
--
DataTables("事件汇总").Select("小结 =\'" & s &"\'")