Foxtable(狐表)用户栏目专家坐堂 → 窗口问题


  共有1984人关注过本帖树形打印复制链接

主题:窗口问题

帅哥哟,离线,有人找我吗?
bestorange
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
窗口问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/12/29 11:55:00 [只看该作者]


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By:2015/12/29 12:11:00 [只看该作者]

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

就不能把TEXTBOX2绑定吧?

 

要在确定按钮里写事件?


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/29 12:18:00 [只看该作者]

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

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
bestorange
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:514 积分:3247 威望:0 精华:0 注册:2015/4/22 16:20:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部