主题：文本框绑定无效

With Tables("客户表")

    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '

        Tables("客户表").AddNew()

    End If

End With

Dim lis As new List(of Integer)

For Each dr  As Row In Tables("客户表").Rows

    lis.add(dr("客户id"))

Next

lis.Sort()

Dim Ind As Integer = lis(lis.Count - 1) + 1

e.Form.Controls("Text客户id").text = Ind

此时，文本框出现了 ind值，是 716

此主题相关图片如下：捕获1.png

With Tables("客户表")

    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '

        dim r as row = Tables("客户表").AddNew()

r("客户id") = Tables("客户表").compute("max(客户id)") + 1

    End If

End With