If e.table.current isnot nothing AndAlso forms("窗口1").Opened Then Forms("窗口1").Controls("TextBox1").Text = e.table.current("第一列") Forms("窗口1").Controls("TextBox2").Text = e.table.current("第二列") Forms("窗口1").Controls("TextBox3").Text = e.table.current("第三列") End If