以下是引用狐哥在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") & "'")