代码之家 › 专栏 › 技术社区 › Thomas Carlton

绑定和dbnull出现问题。只引发一次异常

data-binding vb.net

Thomas Carlton · 技术社区 · 6 年前

我有一个包含两列c1&c2的数据表。 (C1具有allowdbnull=false) . 数据表创建如下:

Private Function GetDataTable() As DataTable
    Dim DT As New DataTable

    'Create the first column
    Dim C As New DataColumn("C1")
    C.AllowDBNull = False
    DT.Columns.Add(C)

    'Second column
    DT.Columns.Add(New DataColumn("C2"))

    Return DT
End Function

然后我有一个表单,其中有两个文本框绑定到数据表:

Dim DT As DataTable = GetDataTable()
Dim CurrencyManager As CurrencyManager = CType(Me.BindingContext(DT), CurrencyManager)

'Add the bindings
TextBox1.BindingContext = Me.BindingContext
TextBox2.BindingContext = Me.BindingContext

TextBox1.DataBindings.Add(New Binding("text", DT, "C1", True, DataSourceUpdateMode.OnValidation))
TextBox2.DataBindings.Add(New Binding("text", DT, "C2", True, DataSourceUpdateMode.OnValidation))

'Set the null value of the Textbox1
TextBox1.DataBindings(0).NullValue = ""

我正在设置textbox1的空值,以便每当textbox为“”时,都应将其视为dbnull。

我使用currencymanager插入新行:

'Insert a new row
CurrencyManager.AddNew()

'Fill the two columns...
Dim Row As DataRowView = CurrencyManager.Current
Row.Row.Item(0) = "Column 1 Value"
Row.Row.Item(1) = "Column 2 Value"

'Validate the entry
CurrencyManager.EndCurrentEdit()  'No issue here since

现在,当用户清除firsttextbox(datatable列已允许全部为false)时,如果我运行以下代码两次。这个 首次引发异常时 但是,msgbox会显示出来 第二次没有引起异常 它收回前一个值,即“列1值”,并且该列不再是dbnull。

Try
    CurrencyManager.EndCurrentEdit()
Catch ex As Exception
    msgbox("The field C1 can not be empty")
End Try

我的问题是:当字段为empy时,是否有任何方法使最后一个代码总是引发异常?

1 回复 | 直到 6 年前

TnTinMn 6 年前

假设我正确地理解了你的目标,那么类似这样的事情应该会起作用。

Private Sub TextBox1_Validating(sender As Object, e As CancelEventArgs) Handles TextBox1.Validating
    Try
        CurrencyManager.EndCurrentEdit()
    Catch ex As Exception
        MsgBox("The field C1 can not be empty")
        TextBox1.DataBindings(0).WriteValue() ' push the value to the datasource
        e.Cancel = True
    End Try
End Sub

编辑:我只想声明,不建议使用异常进行验证,因为您可以轻松地验证文本而不使用异常。这也假设这可以放在验证事件中;我认为我的假设是不正确的。

推荐文章

Karl · 如何引发PrintPage的事件?

2 年前

Daniel · LINQ从列表的dataTable中提取部分匹配

2 年前

limelatte · 如何在datagridview中屏蔽特定列?

2 年前

Orsi · 选择嵌套列表的最大值和最小值。网

2 年前

D T · 如何为Excel Com设置公式?

2 年前

Lenin · 将数组中的每个元素与另一个数组中的相应元素相乘

2 年前

Christian Balabat · 从今天的日期所在的ms access数据库获取数据很热

2 年前

Jack · gridview到textbox的事件与vb中textbox的结果不匹配。网

2 年前

Bryan Max · Vb。如果车主的数据没有停车,5分钟后,网络Mysql错误停车

2 年前

Myronaz · 如何在WinForms VB中设置WebView2用户数据文件夹。网络应用?

2 年前