专家坐堂-列表的代码出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列表的代码出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3926)

--  作者：migold
--  发布时间：2009/8/19 10:53:00
--  列表的代码出错
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "Select s_ID,u_Code,u_Name from dbo.StorHouse where s_Syb=1 and u_Name not in (\'***\')"
cmd.C
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = dt.AddNew()
dr("s_ID") = "0"
dr("u_Code") = "ALL"
dr("u_Name") = "查询所有库房"
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("u_Name")

--  作者：migold
--  发布时间：2009/8/19 10:54:00
--

以前是不会出错的，这次更新后就出错

--  作者：yangming
--  发布时间：2009/8/19 10:54:00
--
有什么提示?

--  作者：migold
--  发布时间：2009/8/19 10:56:00
--
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "Select s_ID,u_Code,u_Name from dbo.StorHouse where s_Syb=1 and u_Name not in (\'***\')"
cmd.C
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = dt.AddNew()
dr("s_ID") = "0"
dr("u_Code") = "ALL"
dr("u_Name") = "查询所有库房"
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("u_Name")

--  作者：yangming
--  发布时间：2009/8/19 10:58:00
--
重新下载今天的更新再试试吧

--  作者：migold
--  发布时间：2009/8/19 10:59:00
--
今天下载的

--  作者：migold
--  发布时间：2009/8/19 11:01:00
--
提示：
不存在名称为“”的DataTable

--  作者：yangming
--  发布时间：2009/8/19 11:05:00
--
Dim dt As DataTable,

这句没有表名啊

--  作者：migold
--  发布时间：2009/8/19 11:14:00
--

不懂，麻烦8楼楼主，给个代码，谢谢

--  作者：yangming
--  发布时间：2009/8/19 11:14:00
--
上传你的文件看看吧