Foxtable(狐表) → 用户栏目 → 专家坐堂 → 材料组合


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

主题：材料组合
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/8 16:43:00 [显示全部帖子]

使用find查询是否有同样的材料：http://www.foxtable.com/webhelp/topics/0396.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/8 17:03:00 [显示全部帖子]

Dim dr  As  DataRow
dr = DataTable("材料表").Find("材料 = '" & e.Form.Controls("TextBox2").Text &  "'")
If dr IsNot Nothing Then
    MessageBox.Show("此组装材料已经存在!不能重复输入")
Else
    Dim r As Row = Tables("材料表").addnew
    r("材料") = e.Form.Controls("TextBox2").Text
    r.Save
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/8 17:19:00 [显示全部帖子]

DataTables("材料表").Find

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/8 20:29:00 [显示全部帖子]

肯定是先判断在填入啊

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/26 16:21:00 [显示全部帖子]

没有问题，文本框有数据吗

    dj = e.Form.Controls("TextBox3").text
msgbox(dj)
msgbox(str1)
    If dj > ""  Then
        str1 &=  "/" & dj
    End If
msgbox(str1)
    e.Form.Controls("TextBox4").text = str1
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/26 16:49:00 [显示全部帖子]

If Typeof e.Sender Is WinForm.ComboBox OrElse e.Sender.name = "TextBox3"

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/26 17:07:00 [显示全部帖子]

33楼提示看弹出什么数据？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/26 20:22:00 [显示全部帖子]

输入555，下面弹出什么

msgbox(e.Sender.name)
If Typeof e.Sender Is WinForm.ComboBox OrElse e.Sender.name = "TextBox3"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/28 9:36:00 [显示全部帖子]

TEXTBOX3还是TextBox3？注意大小写

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/28 9:54:00 [显示全部帖子]

那么不应该有问题，自行调试一下，每一行后面加上提示框

 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询