老师好,下面代码不能完全对应自动填充。“按钮名”列有好多相同的名称导致自动填充到标题列中的数据不对应。Dim cmb As WinForm.ComboBox = e.Form.Controls("按钮名ComboBox3")
Dim str = cmb.SelectedValue
msgbox(str)
Dim dr As DataRow = DataTables("窗口控件管理").Find("按扭名 = '" & str & "'")
If dr IsNot Nothing Then
e.Form.Controls("按钮标题TextBox4").Value= dr("标题")
e.Form.Controls("按钮标题TextBox4").WriteValue
End If