主题：excel 表中表达式求助

楼主的问题比较麻烦,

1  按贺老师二楼的公式放入报表中并不起作用,原因不明,还请贺老师再看看是何故.

2   楼主不愿意再增加表达式列,所以我先是用增加临时表达式列的办法做了,但是发现新增的表达式公式中所涉及到的列又是表达式列,而且公式均使用的是Parent,这样,我做的表达式列的各行无法计算,所以我现在又采取了基于模板进行修改的办法,先应付一下吧,呵呵

3 关于工资结转的问题,我想是否可以根据工资库的日期列进行比较,在打开窗口时对日期进行查找,如果查找到当月的日期,那就让结转工资的按钮不可用,如果小于当月日期,则让按钮可用.

11楼的表达式不计算的问题我解决了,上传你的文件,你可以看一下采用哪种办法,是新增表达式列还是直接填到EXCEL表中

注意EXCEL表的顺序要根据你采用的办法而改变一下,呵

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资管理中的ｅ表问题.rar

谢谢你啊，EXCEL的问题解决了，

但是，我说的另一个问题还没解决啊，就是我想在单击工资转结即把数据导入数据库的过程中出现一个确认的按钮，确认后才开始转结。谢谢了，在帮忙研究研究好吗，帮帮小学生吧。

就是不知道你的确认需要什么条件，不然昨天就一起做了，呵，你看一下１１楼的第三条

不好意思啊，可能是我表达的不清楚，那我就在详细的说一遍啊，就是打开我这个狐表后，你会看到一个窗口（1），窗口中有一个将数据转入数据库的按钮，你单击这个按钮后会弹出另一个窗口（2），（2）其中有两个按钮，就是将数据转到数据库用的，我想做的就是，当你单击建峰员工工资转结后，会弹出一个提醒的窗口，提示一下，是不是确定要将数据转入数据库，就是一个提醒的作用，以免误操作，如果同意就单击确定，如果不同意就单击取消，返回到窗口（2），就是这样，不知道我说的明白不明白。

不管怎么样还是要感谢你之前的回答，真是太感谢了。在帮忙研究研究吧，在线等

 

 

还有，如果以后我有什么问题，有什么办法，可以找到你，或者能让你第一时间能看到我的问题，谢谢

 

如果这个问题不好解决，我还有一个问题，就是这个狐表里面有个考勤表，有一个考勤录入窗口，录入的是员工的考勤情况和满勤状态下的工资，如果在有员工增加或者减少的情况下，在考勤录入窗口中有增加一行和减少一行的按钮，（其中对外工资，和实发工资是根据考勤表计算出来的，我做了以考勤为父表，对外工资和实发工资为子表按照姓名的关联）我想实现当考勤中增加一行或减少一行时，对外工资和实发工资也能相应的减少或增加一行。现在的情况是，当考勤内增加一行或减少一行后，我输入姓名，部门序号等信息后，需要在对外工资和实发工资表内相应的增加一行或减少一行，并且增加一行后，我还需要录入姓名后，才可以。我就是想实现，对外工资和实发工资的姓名列能跟随考勤表的姓名列自动的增加或者减少。不知道我说的明白不明白，如果我说的不明白，我电话是18789472699，你可以给我发短信，把你电话告诉我，我给你打，不管怎么样谢谢先。

 

第一个确定结转的问题很好办，我想是否不要做窗口？直接用MessageBox提示不是更好吗？多做一个小窗口没有必要，呵

第二个问题，如果你将二表做成关联了，那就可以实现的，你可以以姓名做为关联列，但是，如果有同名同姓的就比较麻烦了，最好是以身份证号，或者你给每个员工一个工号，只要是唯一的，就可以做为关联列

 

另外，有问题可以在论坛上问，论坛上有许多版主和狐友的的水平都比我高啊，如果确实需要我帮忙解决的，可以在论坛发贴后，再发短信给我，让我关注一下便可以了，呵

这段代码你放在＂建峰工资结转＂按钮中，我现在做的是如果点了是，就结转，否就退出结转的窗口，如果你不想退出此窗口，可以将红字部分删除就可以了．另一个按钮你类推便可了

Dim Result As DialogResult
Result = MessageBox.Show("您确定要结转吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("建峰人员考勤库").ClearSubtotal()
Dim f As New Filler
f.SourceTable = DataTables("建峰人员考勤") '指定数据来源
f.DataTable = DataTables("建峰人员考勤库") '指定数据接收表
f.Fill() '填充数据
Else
    e.Form.Close　＇退出结转的窗口
End If

好的，谢谢了，我先试一下代码，

但是我现在做的就是按姓名列做的关联啊，不知道，为什么实现不了，每次都的在对外工资和实发工资中添加一下姓名才可以，请你打开我的狐表试一下好吗，帮我找找原因。

关联表的问题如下解决，因为，如果父表中新增行时，只是一空行，此时就算子表也新增了一行也是空行，无法与父表相关联，所以，我建议：

如是只是在表中操作新增行，那就在表中加一个列，类型　为逻辑列，并在父表的表属性的AfterEdit事件中加上代码如下，我这儿假设增加的逻辑列的名称是Ａ，注意：此列一定在加在姓名列的后面，并且姓名列不能为空

If e.Row("姓名")<>"" And e.Row("A")=True  Then
    Tables("考勤.对外工资").AddNew()
 Else
e.Row("A") = False
 MessageBox.Show("姓名不能为空", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

 

你要做的就是在这列中打个勾，那么子表中就可以新增一行了，并同时会自动输入姓名了．

 

如果是放在窗体中做新增行，那可以加一个复选框，然后在复选框的CheckedChanged　事件中加代码就行了

Dim r As Row = Tables("考勤").Current
If r("姓名") <> "" And r("A") = True Then
    Tables("考勤.对外工资").AddNew()
 Else
r("A")= False
 MessageBox.Show("姓名不能为空", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

不管怎么样谢谢先，我试试，上一个增加确认按钮那个问题我试了一下，代码正确，谢谢