主题：这应该是平台的一个严重错误

参考9楼。

 

窗口1_TextBox2_Enter

 

vars("绑定") = e.sender.BindingField

e.sender.BindingField = Nothing

 

窗口1_TextBox2_Leave

 

Dim idx As Integer = vars("绑定").LastIndexOf(".")

Dim tname As String = vars("绑定").SubString(0, idx)

Dim cname As String = vars("绑定").SubString(idx+1)

Tables(tname).current(cname) = e.sender.Text

 

e.sender.BindingField = vars("绑定")

这个问题希望平台开发方重视一下，大红袍老师的方法可行，但这样的话，要加这个代码的控件实在太多了，

 

代码可以写到窗口的enter和leave事件，没必要写到每一个控件里去。

 

再有就是，关联表、尽量不要排序

收到，下次搞定。

 

顶狐爸的态度！！！