- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态下拉列表项目帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3061)
-- 发布时间：2009/6/8 14:37:00
-- 动态下拉列表项目帮助
送货工厂下拉列表项目的Enter代码设置如下：
Dim cmb As WinForm.Combobox = e.Sender
Dim r As Row = CurrentTable.Current
cmb.ComboList = DataTables("收货工厂").GetComboListString("工厂名称","客户名称 = \'" & r("客户名称") & "\'")
为什么新增新一条记录进没有出错，但是再次增加时就出错了呢？
此主题相关图片如下：未标题-1.gif
-- 发布时间：2009/6/8 15:00:00
--
检查一下你的enter事件
-- 发布时间：2009/6/8 15:01:00
--
对象引用出问题，加一个判断
Dim r As Row = CurrentTable.Current
if r isnot nothing then
cmb.ComboList = DataTables("收货工厂").GetComboListString("工厂名称","客户名称 = \'" & r("客户名称") & "\'")
end if
如果还不行的话，则需要传上你的项目看看才可以知道
[此贴子已经被作者于2009-6-8 15:02:39编辑过]
-- 发布时间：2009/6/8 15:48:00
--
Dim r As Row = CurrentTable.Current
应是没有定位的问题.查看新增行的公式
-- 发布时间：2009/6/8 15:51:00
--
楼主还是上传文件吧,省得让大家猜
-- 发布时间：2009/6/9 7:32:00
--
以下是引用狐哥在2009-6-8 15:48:00的发言：
Dim r As Row = CurrentTable.Current
应是没有定位的问题.查看新增行的公式
Dim r As Row = CurrentTable.Current
应是没有定位的问题.查看新增行的公式
这句代码针对本表.
在enter输入.
在enter输入.
Dim cmb As WinForm.Combobox = e.Sender
Dim r As Row = CurrentTable.Current(本表)\'本表
Dim r As Row = Tables("表名").Current \'指定表名
cmb.ComboList = DataTables("表名").GetComboListString("列名","IO = \'" & r("IO") & "\'")
你改成指定表名试一下,如果还不行,估计不是这个问题了.