prepareEdit事件
If e.Col.Name = "变更前楼房编号" then
e.Col.ComboList = DataTables("楼面台账").GetComboListString("楼房编号","购买户主 = '" & e.row("购买户主") &"'")
End If