共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：动态下拉列表项目帮助
1楼
woodiy 发表于：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
Dim cmb As WinForm.Combobox = e.Sender
Dim r As Row = CurrentTable.Current
cmb.ComboList = DataTables("收货工厂").GetComboListString("工厂名称","客户名称 = '" & r("客户名称") & "'")
为什么新增新一条记录进没有出错，但是再次增加时就出错了呢？
此主题相关图片如下：未标题-1.gif2楼
mr725 发表于：2009/6/8 15:00:00检查一下你的enter事件
3楼
kylin 发表于：2009/6/8 15:01:00对象引用出问题，加一个判断
Dim r As Row = CurrentTable.Current
if r isnot nothing then
cmb.ComboList = DataTables("收货工厂").GetComboListString("工厂名称","客户名称 = '" & r("客户名称") & "'")
end if
如果还不行的话，则需要传上你的项目看看才可以知道
Dim r As Row = CurrentTable.Current
if r isnot nothing then
cmb.ComboList = DataTables("收货工厂").GetComboListString("工厂名称","客户名称 = '" & r("客户名称") & "'")
end if
如果还不行的话，则需要传上你的项目看看才可以知道
[此贴子已经被作者于2009-6-8 15:02:39编辑过]
4楼
狐哥 发表于：2009/6/8 15:48:00Dim r As Row = CurrentTable.Current
应是没有定位的问题.查看新增行的公式
应是没有定位的问题.查看新增行的公式
5楼
yangming 发表于：2009/6/8 15:51:00楼主还是上传文件吧,省得让大家猜
6楼
blackzhu 发表于：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") & "'")
你改成指定表名试一下,如果还不行,估计不是这个问题了.
共6 条记录, 每页显示 10 条, 页签:
[1]