以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  InvalidArgument=“0”的值对于“index”无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66669)

--  作者:jhq1989
--  发布时间:2015/4/11 15:30:00
--  InvalidArgument=“0”的值对于“index”无效
z这是怎么回事啊
--  作者:Bin
--  发布时间:2015/4/11 15:34:00
--  
代码发出来
--  作者:jhq1989
--  发布时间:2015/4/11 15:49:00
--  代码如下

If e.Sender.S e lectedIndex = 0

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim txtb As WinForm.TextBox = e.Form.Controls("TextBox1")
txtb.Text=lvw.Rows(0)("工程名称")
Dim s As String
s ="\'"& txtb.Text &"\'"
MessageBox.Show(s)
Dim cmd As  SQLCommand
\'\'cmd.C
cmd.CommandText="s elect 序号,项目名称,内容 from {工程概况} "
Tables("具体项目指标_工程概况").Fill(cmd.CommandText,"外部数据sql2008",True)
\'\'cmd.ExecuteNonQuery()
End If


--  作者:Bin
--  发布时间:2015/4/11 15:58:00
--  
调试一下看看执行到那一句代码报错

建议您用这个方法:
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错,然后分析原因,搞不定,可以在论坛发帖,贴出代码,并告诉我们运行到哪一行出错,以及错误提示。

--  作者:jhq1989
--  发布时间:2015/4/11 16:15:00
--  我已经找出错误的所在了,因为我是预览listview是空的

还有就是

txtb.Text=lvw.Rows(0)("工程名称")
Dim s As String ="\'"& txtb.Text &"\'"

Tables("具体项目指标_工程概况").Fill("s elect 序号,项目名称,内容 from {工程概况} where {工程概况}.工程名称= s","外部数据sql2008",True)

其中s elect语句中where条件筛选的动态引用不对,当我把 where {工程概况}.工程名称= s改成where {工程概况}.工程名称= ’天津泰达‘ 的时候就可以


--  作者:Bin
--  发布时间:2015/4/11 16:21:00
--  

Tables("具体项目指标_工程概况").Fill("s elect 序号,项目名称,内容 from {工程概况} where {工程概况}.工程名称="\'" & s & "\'","外部数据sql2008",True)



--  作者:jhq1989
--  发布时间:2015/4/11 16:28:00
--  出现这个错误了


图片点击可在新窗口打开查看此主题相关图片如下:bl4z6`()w7x~ess8ane0{gp.png
图片点击可在新窗口打开查看

我改成这样也是不行

Tables("具体项目指标_工程概况").Fill("s elect 序号,项目名称,内容 from {工程概况} where {工程概况}.工程名称="\'" & s & "\'"","外部数据sql2008",True)


--  作者:Bin
--  发布时间:2015/4/11 16:31:00
--  
不可能啊,代码没问题啊. 你这个不是窗口表?
--  作者:jhq1989
--  发布时间:2015/4/11 16:32:00
--  是窗口表啊

……


--  作者:jhq1989
--  发布时间:2015/4/11 16:33:00
--  你的代码明显少个“
……