主题：指定行

dim str As String = " 张 三 "
msgbox(str.replace(" ", ""))

如果单位内有两个职工同姓名，［女］张三　［男］张三，如何清除［］符号？

Dim str As String = "【男】 张 三 "
msgbox(str.replace(" ", "").replace("【", "").Replace("】", ""))

 设置一个变量，累加1不就好了？

职工资料　与　职工明细资料　两表为关联表，职工资料如何根据职工明细资料的最新日期为表达式条件生成序号、部门、职务？

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

点击浏览该文件:工资软件2016.rar

主表，DataColChanged事件

 

If e.DataCol.Name = "姓名" Then
    Dim fdr As DataRow = DataTables("职工明细资料").Find("姓名 = '" & e.DataRow("姓名") & "'", "日期 desc")
    If fdr IsNot Nothing Then
        e.DataRow("序号") = fdr("序号")
        e.DataRow("部门") = fdr("部门")
        e.DataRow("职务") = fdr("职务")
    End If
End If

 

明细表，DataColChanged事件

DataTables("职工资料").DataCols("姓名").RaiseDataColChanged("姓名 = '" & e.DataRow("姓名") & "'")

职工资料表如果不是新增人员，姓名是不变的，请问老师应如何在主表姓名不变的情况下，如果职工明细资料有人员变动时也可以调整主表？

认认真真看138楼啊。