- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教 窗口功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65240)
-- 发布时间：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 |
感谢！！！
-- 发布时间：2015/3/12 11:15:00
--
你给的例子有问题，打不开。
Dim dr2 As Row = Tables("表A").AddNew()
dr2("组件序号") = Tables("表A").Compute("max(组件序号)")
dr2("加工级别") = Tables("表A").Compute("max(加工级别)") + 1
-- 发布时间：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编辑过]
-- 发布时间：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)
-- 发布时间：2015/3/12 11:37:00
--
打不开那你的项目，你请参考4楼的例子去做
-- 发布时间：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
功能总是实现不了，试过很多方法，总是差那么点。
功底不够，请教一下。。。
-- 发布时间：2015/3/12 14:27:00
--
呃，代码逻辑没有问题。
你msgbox看一下条件是否有错
msgbox(成品号 = \'" & zjh & "\' And 组件序号 = \'" & zj &"\'")
msgbox(成品号 = \'" & zjh & "\'")
-- 发布时间：2015/3/12 14:30:00
--
dr2("加工级别") = Tables("表A").Compute("Min(加工级别)"," 成品号 = \'" & zjh & "\' And 组件序号 = \'" & zj & "\'")
这个代码 找不到任何数据
dr2("加工级别") = Tables("表A").Compute("Min(加工级别)"," 成品号 = \'" & zjh & "\' ")
这个又可以找到一个 加工级别
-- 发布时间：2015/3/12 14:31:00
--
看7楼，弹出条件看，肯定是你条件有问题。
-- 发布时间：2015/3/12 14:43:00
--
此主题相关图片如下：3.png
此主题相关图片如下：6.png
这是选择 第3行，6行时，测试 弹出的条件窗口