以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于数据绑定的,修改内容时的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68423)

--  作者:licky008
--  发布时间:2015/5/17 18:52:00
--  关于数据绑定的,修改内容时的问题

图片点击可在新窗口打开查看此主题相关图片如下:傲游截图20150517184713.jpg
图片点击可在新窗口打开查看

如图,上面的控件都是绑定到表的,控件里图案改变后,控件图库编号也相应自动改变,但是表里的图案单元格是随着控件内容改变,图库编号却不改变,焦点离开控件图案后,控件图库编号的内容又变回单元格里的内容了。
[此贴子已经被作者于2015/8/3 21:18:37编辑过]

--  作者:大红袍
--  发布时间:2015/5/17 19:04:00
--  
 例子上传上来。
--  作者:licky008
--  发布时间:2015/5/18 10:40:00
--  关于数据绑定的,修改内容时的问题
例子已上传,麻烦帮看下哦
--  作者:大红袍
--  发布时间:2015/5/18 10:53:00
--  

 代码

 

With Tables("图库")
    Dim ta As WinForm.ComboBox = e.Form.Controls("图案")
    Dim tk As WinForm.TextBox = e.Form.Controls("图库编号")
   
    If ta.Value IsNot Nothing Then
        Dim dr As DataRow
        dr = DataTables("图库").Find("图案 = \'" & ta.Value  & "\'")
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            Tables("订单明细").Current("图库编号") = dr("图库编号")
           
        Else
           
            Tables("订单明细").Current("图库编号") = Nothing
           
        End If
       
    End If
   
End With

 

 原因

 

http://www.foxtable.com/help/topics/2436.htm

 


--  作者:licky008
--  发布时间:2015/5/19 12:03:00
--  关于数据绑定的,修改内容时的问题
真是太感谢了。