Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教 窗口功能


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

主题：请教 窗口功能
帅哥哟，离线，有人找我吗？
卟离卟弃
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		请教 窗口功能  发帖心情 Post By：2015/3/12 11:08:00 [只看该作者]


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

按钮代码
Dim dr2 As Row = Tables("表A").AddNew()
dr2("组件序号") = e.Form.Controls("组件序号").Value
dr2("加工级别") = e.Form.Controls("加工级别").Value + 1


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.foxdb



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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 11:15:00 [只看该作者]

 你给的例子有问题，打不开。

 

Dim dr2 As Row = Tables("表A").AddNew()
dr2("组件序号") = Tables("表A").Compute("max(组件序号)")
dr2("加工级别") = Tables("表A").Compute("max(加工级别)") + 1
 回到顶部
帅哥哟，离线，有人找我吗？
卟离卟弃
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		  发帖心情 Post By：2015/3/12 11:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150312111839.png
图片点击可在新窗口打开查看
这张图片中的功能怎么实现？

Dim dr2 As Row = Tables("表A").AddNew()

dr2("组件序号") = e.Form.Controls("组件序号").Value
dr2("加工级别") = jb +1  '全局 变量  ,窗口 加工级别提取绑定数据时,会自动 附值到 JB变量中,,可解决  之前的提问

Dim s As String =  e.Form.Controls("组件序号").Value
Dim aa As Integer
aa=  Instr("s",".")
Dim bb As String = Right ("s",1)

If aa > 0 Then
    Dim ss(1) As String
    Dim v As Double
    Dim n As Integer
    ss(0)= "bb"
    ss(1) = "1"
    For i As Integer = 0 To 2
        If IsNumeric(ss(i)) Then
            v = v + Val(ss(i))
        End If
    Next
    dr2("组件序号") = v
    
End If


上一个问题解决了，定义个变量，控件  DataFormat 事件 中  加个代码  jb = e.Form.Controls("加工级别").Value  就好了




[此贴子已经被作者于2015/3/12 11:31:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 11:37:00 [只看该作者]

Dim s As String =  "1.8"
Dim idx As Integer = s.LastIndexOf(".")
Dim pstr As String = ""
If idx > -1 Then pstr = s.SubString(0, idx+1)
Dim num As Integer = s.SubString(idx+1)

Dim nnum As String = pstr & (num+1)

msgbox(nnum)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 11:37:00 [只看该作者]

 打不开那你的项目，你请参考4楼的例子去做

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


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		  发帖心情 Post By：2015/3/12 13:58:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：aaaa.jpg
图片点击可在新窗口打开查看


Dim dr2 As Row = Tables("表A").AddNew()

‘组件号
Dim s As String =  zj
Dim idx As Integer = s.LastIndexOf(".")
Dim pstr As String = ""
If idx > -1 Then pstr = s.SubString(0, idx+1)
Dim num As Integer = s.SubString(idx+1)
Dim nnum As String = pstr & (num+1)
dr2("组件序号") = nnum

’加工级别
Dim dr,dr1 As DataRow
dr = DataTables("表A").Find("成品号 = '" & zjh & "' And 组件序号 = '" & zj &"'","加工级别") '找出编号
dr1 = DataTables("表A").Find("成品号 = '" & zjh & "'" ,"加工级别") '找出编号
If dr IsNot Nothing Then '如果找到的话
    jb2 = dr("加工级别")
Else
    If dr1 IsNot Nothing Then '如果找到的话
        jb2  = dr("加工级别") + 1
    Else
        jb2 = 1
    End If
End If
dr2("加工级别") = jb2

功能总是实现不了，试过很多方法，总是差那么点。
功底不够，请教一下。。。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 14:27:00 [只看该作者]

 呃，代码逻辑没有问题。

 

 你msgbox看一下条件是否有错

 

msgbox(成品号 = '" & zjh & "' And 组件序号 = '" & zj &"'")

msgbox(成品号 = '" & zjh & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
卟离卟弃
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		  发帖心情 Post By：2015/3/12 14:30:00 [只看该作者]

dr2("加工级别") = Tables("表A").Compute("Min(加工级别)"," 成品号 = '" & zjh & "' And 组件序号 = '" & zj & "'")
这个代码 找不到任何数据

dr2("加工级别") = Tables("表A").Compute("Min(加工级别)"," 成品号 = '" & zjh & "' ")

这个又可以找到一个 加工级别
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 14:31:00 [只看该作者]

 看7楼，弹出条件看，肯定是你条件有问题。

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


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		  发帖心情 Post By：2015/3/12 14:43:00 [只看该作者]


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

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

这是选择 第3行，6行时，测试 弹出的条件窗口
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询