- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]运行填充代码，造成其他数据清空（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54441)
-- 发布时间：2014/7/28 16:36:00
-- [求助]运行填充代码，造成其他数据清空（已解决）
运行一段代码，将数据填充到临时表的对应单元格，填充数据正确，但是其他数据被清空，如何解决，请各位老师指教，谢谢。
For Each v As String In DataTables("表A").GetValues("批次")
For Each dr As DataRow In DataTables("汇总").DataRows
If dr.IsNull("编号") Then
dr("批次_" & v) = Nothing
Else
Dim pr As DataRow = DataTables("表A").Find("编号 = \'" & dr("编号") & "\' And 批次 = \'"& v &"\'")
If pr IsNot Nothing Then
dr("批次_" & v) = pr("缺勤类别")
End If
End If
Next
Next
[此贴子已经被作者于2014-7-28 21:05:53编辑过]
-- 发布时间：2014/7/28 16:49:00
--
For Each v As String In DataTables("表A").GetValues("批次")
For Each dr As DataRow In DataTables("汇总").DataRows
If dr.IsNull("编号") Then
dr("批次_" & v) = Nothing
Else
Dim pr As DataRow = DataTables("表A").Find("编号 = \'" & dr("编号") & "\' And 批次 = \'"& v &"\'")
If pr IsNot Nothing Then
If pr.IsNull("缺勤类别")=False Then
dr("批次_" & v) = pr("缺勤类别")
End If
End If
End If
Next
Next
MainTable = Tables("汇总")
-- 发布时间：2014/7/28 16:54:00
--
谢谢Bin老师，问题解决。
-- 发布时间：2014/7/28 16:57:00
--
代码
For Each v As String In DataTables("表A").GetValues("批次")
For Each dr As DataRow In DataTables("汇总").DataRows
If dr.IsNull("编号") Then
dr("批次_" & v) = Nothing
Else
Dim pr As DataRow = DataTables("表A").Find("编号 = \'" & dr("编号") & "\' And 批次 = \'"& v &"\' and 考勤类别 = \'缺勤\'")
If pr IsNot Nothing Then
dr("批次_" & v) = pr("缺勤类别")
End If
End If
Next
Next
-- 发布时间：2014/7/28 20:51:00
--
新问题求教：在汇总表，能否根据不同缺勤类别，改变各批次列、除出勤以外单元格的不同背景色。谢谢各位老师的指教。
-- 发布时间：2014/7/28 21:00:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2014/7/28 21:05:00
--
谢谢甜老师的指教，解决了大问题，再次衷心感谢！！