以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79335)

--  作者:bestorange
--  发布时间:2015/12/29 11:45:00
--  窗口问题


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

窗口事件编写了
Dim cmb  As WinForm.ComboBox = e.form.Controls("ComboBox1")
 cmb.ComboList = DataTables("价格表").GetComboListString("品名")

 

选择完COMBOBOX1后 (品名) TEXTBOX1中自动代入   "价格表"中"规格"列数据

 

 

忘了是怎么操作了

 


--  作者:bestorange
--  发布时间:2015/12/29 11:55:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151229115156.png
图片点击可在新窗口打开查看
选择完,COMBOBOX1的内容(品名) 自动代入TEXTBOX1 (规格)

然后单击确定  只将TEXTBOX2里手动输入的内容 录入到 "价格表" 中“补货”列,价格表中“库存”列 原有数据增加“补货”列数据


--  作者:大红袍
--  发布时间:2015/12/29 12:01:00
--  

Dim fdr As DataRow = DataTables("价格表").Find("品名 = \'" & e.sender.Text & "\'")
If fdr IsNot Nothing Then
    e.Form.Controls("TextBox1").Text = fdr("规格") 

Else

    e.Form.Controls("TextBox1").Text = nothing
End If


--  作者:bestorange
--  发布时间:2015/12/29 12:11:00
--  

要把textbox2里的内容 录入到 COMBOBOX1所选择的品名那一行中的 “补货”列

就不能把TEXTBOX2绑定吧?

 

要在确定按钮里写事件?


--  作者:大红袍
--  发布时间:2015/12/29 12:18:00
--  

出入库,就不应该在原来的行修改。

 

每次出库或入库就应该增加一行数据。

 

如果要在原本那里改,就不要绑定,确定的时候,查找行,然后赋值


--  作者:bestorange
--  发布时间:2015/12/29 12:46:00
--  
以下是引用大红袍在2015/12/29 12:18:00的发言:

出入库,就不应该在原来的行修改。

 

每次出库或入库就应该增加一行数据。

 

如果要在原本那里改,就不要绑定,确定的时候,查找行,然后赋值

Dim g As DataTables("价格表")

g.Filter = "品名 = \'" & e.Form.Controls("ComboBox1").Text

g("补货") =  \'" & e.Form.Controls("TextBox2").Text


--  作者:大红袍
--  发布时间:2015/12/29 14:33:00
--  

Dim fdr As DataRow = DataTables("价格表").Find("品名 = \'" & e.Form.Controls("ComboBox1").Text & "\'")
If fdr IsNot Nothing Then
    fdr("补货") = e.Form.Controls("TextBox2").Text

End If