0

いくつかのコントロールを動的に作成し、それらをデータベースにバインドしています。

'childElem is an XElement containing data for the control,
'dpBindingSource is the bindingSource Connected with the database
 Select Case cntrl.GetType
    Case GetType(TextBox)
      Dim txt As TextBox
      txt = DirectCast(cntrl, TextBox)
      txt.DataBindings.Add(New Binding("Text", dpBindingSource, childElem.Element("Col_Source").Value, True))
      AddHandler txt.TextChanged, AddressOf controlValueChanged

     Case GetType(ComboBox)
       Dim cbo As ComboBox
       cbo = DirectCast(cntrl, ComboBox)
       With cbo
         .DataSource = dt 'datatable to fill the combo
         .DisplayMember = childElem.Element("Display_Member").Value
         .ValueMember = childElem.Element("Value_Member").Value
         .DataBindings.Add(New Binding("SelectedValue",dpBindingSource, childElem.Element("Col_Source").Value , True))
       End with
       AddHandler cbo.SelectedIndexChanged, AddressOf controlValueChanged

   End Select

したがって、更新しようとしているときは、dpBindingSource_BindingCompleteを確認します。たとえば、テキストボックスの形式が数値である必要がある場合、メッセージボックスが表示されます。

  Private Sub dpBindingSource_BindingComplete(sender As Object, e As System.Windows.Forms.BindingCompleteEventArgs) Handles dpBindingSource.BindingComplete

    If Not e.BindingCompleteState = BindingCompleteState.Success Then
        MessageBox.Show(e.ErrorText)
    End If
  End Sub

私が欲しいのはコントロール名です。これが不可能な場合は、エラーの原因となっているデータベースの列名です。

4

1 に答える 1

0

私は解決策を見つけました： 

MessageBox.Show("Error :" & e.ErrorText + vbCrLf & _
                        "Control : " & e.Binding.Control.Name.ToString + vbCrLf & _
                        "Field : " & e.Binding.BindingMemberInfo.BindingField.ToString + vbCrLf & _
                        "Info :" & e.Binding.BindableComponent.ToString + vbCrLf & _
                        "Correct Format :" & e.Exception.InnerException.TargetSite.DeclaringType.Name)
于 2012-11-07T15:59:28.610 に答える