以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=54899)

--  作者:风声
--  发布时间:2014/8/6 22:21:00
--  [求助]


图片点击可在新窗口打开查看此主题相关图片如下:赋值.png
图片点击可在新窗口打开查看

窗口发票号码"组合框"取值后触发"发票名称"文本框"自动到指定的表的列去取值

[此贴子已经被作者于2014-8-6 22:21:50编辑过]

--  作者:有点甜
--  发布时间:2014/8/6 22:39:00
--  

 Dim fdr As DataRow = DataTables("表A").Find("发票号码 = \'" & e.Form.Controls("AAA").Text & "\'")

 msgbox(fdr("发票名称"))


--  作者:风声
--  发布时间:2014/8/6 23:08:00
--  

事件afterload

 

Dim fdr As DataRow = DataTables("发票管理").Find("发票号码 = \'" & e.Form.Controls("文本框").Text & "\'")

 msgbox(fdr("发票名称"))

 

老师,不行啊


--  作者:Bin
--  发布时间:2014/8/7 8:43:00
--  
"组合框"  Textchanged事件

Dim fdr As DataRow = DataTables("发票管理").Find("发票号码 = \'" & e.Form.Controls("文本框").Text & "\'")

 msgbox(fdr("发票名称"))


--  作者:风声
--  发布时间:2014/8/7 16:14:00
--  

老师有报错

NET Framework 版本:2.0.50727.3655
Foxtable 版本:2014.5.12.1
错误所在事件:窗口,出库,ComboBox7,TextChanged
详细错误信息:
Object reference not set to an instance of an object.


--  作者:有点甜
--  发布时间:2014/8/7 16:17:00
--  

 

"组合框"  SelectedIndexChanged 事件

Dim fdr As DataRow = DataTables("发票管理").Find("发票号码 = \'" & e.Sender.Text & "\'")

If fdr IsNot Nothing Then

    e.Form.Controls("文本框").Text = fdr("发票名称")

End If


--  作者:风声
--  发布时间:2014/8/7 16:28:00
--  

光标移开组合框文本框的值自动退掉了


--  作者:有点甜
--  发布时间:2014/8/7 16:34:00
--  
以下是引用风声在2014-8-7 16:28:00的发言:

光标移开组合框文本框的值自动退掉了

 

删除两个控件多余的代码,单独用这段代码。代码写在 "组合框"  SelectedIndexChanged 或者 TextChanged

Dim fdr As DataRow = DataTables("发票管理").Find("发票号码 = \'" & e.Sender.Text & "\'")

If fdr IsNot Nothing Then

    e.Form.Controls("文本框").Text = fdr("发票名称")

End If


--  作者:风声
--  发布时间:2014/8/7 16:53:00
--  

还是不行

这是发票号码组合框里的代码

Dim s As String  = DataTables("发票管理").GetComboListString("发票号码","使用 = false")
e.Sender.Combolist = s


--  作者:有点甜
--  发布时间:2014/8/7 17:05:00
--  
以下是引用风声在2014-8-7 16:53:00的发言:

还是不行

这是发票号码组合框里的代码

Dim s As String  = DataTables("发票管理").GetComboListString("发票号码","使用 = false")
e.Sender.Combolist = s

 

例子发上来,说最后一次。

[此贴子已经被作者于2014-8-7 17:05:11编辑过]