If frm.Opened AndAlso e.Table.Current IsNot Nothing Then
frm.Controls("ComboBox2").text = e.Table.Current("卷")
frm.Controls("ComboBox3").text = e.Table.Current("章")
frm.Controls("ComboBox4").text = e.Table.Current("从节")
frm.Controls("ComboBox5").text = e.Table.Current("至节")
End If
请教要怎么编写