- 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=128945)
-- 发布时间：2018/12/18 21:16:00
--
参考：http://www.foxtable.com/webhelp/scr/1454.htm
工时使用Compute合并，描述使用getcomboxstring获取
-- 发布时间：2018/12/18 21:59:00
--
3楼
If e.DataCol.name = "供应商","代码"
改为
If e.DataCol.Name = "供应商" OrElse e.DataCol.Name = "代码" Then
4楼
If e.DataCol.Name = "姓名" OrElse e.DataCol.Name = "工作日期" Then
If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("工作日期") = False Then
Dim str As String = ""
For Each v As String() In DataTables("管理层杂工明细").GetValues("工作内容描述|使用工时","姓名 = \'" & e.DataRow("姓名") & "\' And 工作日期 = \'" & e.DataRow("工作日期") & "\'")
str &= v(0) & "," & v(1) & ";"
Next
e.DataRow("工作内容描述") = str.trim(";")
End If
End If
[此贴子已经被作者于2018/12/18 22:34:20编辑过]
-- 发布时间：2018/12/18 22:20:00
--
这么明显的错误自己找找。虽然是寻求技术支持，起码基本的错误判断还是要有的，而不是一丢丢错误就只会找我们
-- 发布时间：2018/12/18 22:36:00
--
就是了咯，这么明显的错误提示嘛。逻辑性的错误不容易看，这种笔误的错误还是容易看出来滴
-- 发布时间：2018/12/19 16:26:00
--
你需要重置列才行的
http://www.foxtable.com/webhelp/scr/1587.htm
-- 发布时间：2018/12/19 16:39:00
--
改成下面，弹出什么？
msgbox(e.datacol.name)
If e.DataCol.Name = "姓名" OrElse e.DataCol.Name = "工作日期" Then
msgbox(1)
If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("工作日期") = False Then
msgbox(2)
Dim str As String = ""
For Each v As String() In DataTables("管理层杂工明细").GetValues("工作内容描述|使用工时","姓名 = \'" & e.DataRow("姓名") & "\' And 工作日期 = \'" & e.DataRow("工作日期") & "\'")
msgbox(3)
str &= v(0) & "," & v(1) & ";"
Next
msgbox(str)
e.DataRow("工作内容描述") = str.trim(";")
End If
End If
-- 发布时间：2018/12/19 18:49:00
--
以下是引用nuoyan88在2018/12/19 18:25:00的发言：
工作日期没有显示，其他的都正常显示了
msgbox(e.datacol.name)
If e.DataCol.Name = "姓名" OrElse e.DataCol.Name = "工作日期" Then
什么意思？弹出的str是否正确？你需要得到什么结果，现在是什么结果？
-- 发布时间：2018/12/19 20:40:00
--
外部你的数据库是sqlserver还是access？
如果是access，改成
For Each v As String() In DataTables("管理层杂工明细").sqlGetValues("工作内容描述|使用工时","姓名 = \'" & e.DataRow("姓名") & "\' And 工作日期 = #" & e.DataRow("工作日期") & "#")
-- 发布时间：2018/12/19 22:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |