以下是引用狐哥在2009-6-8 15:48:00的发言:
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") & "'")
你改成指定表名试一下,如果还不行,估计不是这个问题了.