- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 狐表可以实现以下要求吗？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69417)
-- 发布时间：2015/6/4 19:44:00
-- [求助] 狐表可以实现以下要求吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:第1生产课 仕上标准工序表(201506).xls |
1.excel中红色框工序输入“*”，根据工序标准中的对应的工序“*”，选择对应的作业标准，在本表L列中显示如黄色区域标识
2.根据A列型号和L列的作业标准，在标准能力中找到对应的能力。如：GT095K2，作业标准1，能力600。
以上EXCEL可以实现，但是数据时有点慢，请各位看看是否可以使用狐表计算，谢谢。
[此贴子已经被作者于2015/6/4 19:44:00编辑过]
-- 发布时间：2015/6/4 19:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
附上项目
-- 发布时间：2015/6/4 20:05:00
--
自己顶一下，等高手指点啊
-- 发布时间：2015/6/4 20:11:00
--
Dim ary() As String = {"检查","切边","自动_切边","磁检","套弹簧","封油脂","组装","防锈_包装","称油脂","返工"}
Select Case e.DataCol.Name
Case "型号"
If e.NewValue = Nothing Then
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
Else
e.DataTable.DataCols("检测").RaiseDataColChanged(e.DataRow)
End If
Case Else
If array.IndexOf(ary, e.DataCol.Name) > -1 Then
Dim filter As String = "1=1"
For Each a As String In ary
If e.DataRow.IsNull(a) Then
filter &= " and " & a & " Is null"
Else
filter &= " and " & a & " = \'*\'"
End If
Next
Dim fdr As DataRow = DataTables("工序标准").Find(filter)
If fdr IsNot Nothing Then
e.DataRow("作业标准") = fdr("标准工序")
If DataTables("标准能力").DataCols.Contains(fdr("标准工序")) Then
filter = "型号 = \'" & e.DataRow("型号") & "\'"
fdr = DataTables("标准能力").Find(filter)
e.DataRow("能力") = fdr(e.DataRow("作业标准"))
Else
e.DataRow("能力") = Nothing
End If
Else
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
End If
End If
End Select
-- 发布时间：2015/6/4 20:22:00
--
谢谢，基本可以了，但是如果标准能力没有数据的话，会出现错误。
.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2014.11.11.1
错误所在事件：表，数据，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
是不是要把能力的类型改成整数啊
-- 发布时间：2015/6/4 20:26:00
--
是。或者改代码
e.DataRow("能力") = val(fdr(e.DataRow("作业标准")))
-- 发布时间：2015/6/4 20:55:00
--
谢谢大红袍
-- 发布时间：2015/6/4 22:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
项目中数据表中的工序原来是用“*”表示，但是我想用逻辑列，然后转换成“*”，在检查列中IIF([检查1]=\'true\',\'*\',\'\')，但是所写代码就无效了。再请大侠赐教？
-- 发布时间：2015/6/4 22:32:00
--
Dim ary() As String = {"检查","切边","自动切边","磁检","套弹簧","封油脂","组装","防锈包装","称油脂","返工"}
Select Case e.DataCol.Name
Case "型号"
If e.NewValue = Nothing Then
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
Else
e.DataTable.DataCols("检查").RaiseDataColChanged(e.DataRow)
End If
Case Else
If array.IndexOf(ary, e.DataCol.Name) > -1 Then
Dim filter As String = "1=1"
For Each a As String In ary
If e.DataRow.IsNull(a) OrElse e.DataRow(a) = False Then
filter &= " and " & a & " Is null"
Else
filter &= " and " & a & " = \'*\'"
End If
Next
Dim fdr As DataRow = DataTables("工序标准").Find(filter)
If fdr IsNot Nothing Then
e.DataRow("作业标准") = fdr("标准工序")
If DataTables("标准能力").DataCols.Contains(fdr("标准工序")) Then
filter = "型号 = \'" & e.DataRow("型号") & "\'"
fdr = DataTables("标准能力").Find(filter)
If fdr IsNot Nothing Then
e.DataRow("能力") = val(fdr(e.DataRow("作业标准")))
Else
e.DataRow("能力") = Nothing
End If
Else
e.DataRow("能力") = Nothing
End If
Else
e.DataRow("作业标准") = Nothing
e.DataRow("能力") = Nothing
End If
End If
End Select
-- 发布时间：2015/6/4 22:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
请再帮我看看，哪里错了。
.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2014.11.11.1
错误所在事件：表，数据， DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Boolean”的转换无效。
输入字符串的格式不正确。