以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内容合并  (http://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