主题：关于代码问题请教，谢谢

 没有找到对应的人，你希望怎么执行？逻辑是什么？

 

 上传具体项目说明问题。

我没有找到对应的人，然后能继续去找其他的工资编号，但现在是找不到之后，就不往下执行了。

贴出你最后写的代码。10楼代码没问题。

 

如果不会做，单独做一个例子发上来测试。

您好，我上传了一个测试程序，在现实的窗口里面，点“8月份”显示出来的数据很少，您帮忙看一下，谢谢了。

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

点击浏览该文件:测试.zip

Dim dtb As New DataTableBuilder("职工购股情况差异对比表8月份")
dtb.AddDef("工资编号", Gettype(String), 16)
dtb.AddDef("姓名", Gettype(String), 16)
dtb.AddDef("原职位", Gettype(String), 16)
dtb.AddDef("职位", Gettype(String), 16)
dtb.AddDef("职位差异", Gettype(String), 16)
dtb.AddDef("原技术职务", Gettype(String), 16)
dtb.AddDef("技术职务", Gettype(String), 16)
dtb.AddDef("技术职务差异", Gettype(String), 16)
dtb.AddDef("原购股标准", Gettype(Double))
dtb.AddDef("购股标准", Gettype(Double))
dtb.AddDef("购股标准差异", Gettype(Double))
dtb.AddDef("现持股金", Gettype(String), 16)
dtb.Build()
Dim dt As DataTable = DataTables("职工购股情况差异对比表8月份")
Dim dt2 As DataTable = DataTables("原人员信息岗位股明细表8月份")
Dim dt4 As DataTable = DataTables("人员信息岗位股明细表")
For Each nm As String In dt2.GetValues("工资编号")
    Dim dr As DataRow = dt.AddNew()
    dr("工资编号") = nm
    Dim num1 As Double = dt2.Compute("max(购股标准)", "工资编号 = '" & nm & "'")
    Dim num2 As Double = dt2.Compute("max(对应购股标准)", "工资编号 = '" & nm & "'")
    Dim fdr1 As DataRow
    If num1 > num2 Then
        dr("原购股标准") = num1
        fdr1 = dt2.find("工资编号 = '" & nm & "' and 购股标准 = '" & num1 & "'")
       
    Else
        dr("原购股标准") = num2
        fdr1 = dt2.find("工资编号 = '" & nm & "' and 对应购股标准 = '" & num2 & "'")
    End If
    If fdr1 Is Nothing Then
        dr("姓名") = "没找到"
        dr("原技术职务") = "没找到"
        dr("原职位") = "没找到"
    Else
        dr("姓名") = fdr1("姓名")
        dr("原技术职务") = fdr1("原技术职务等级")
        dr("原职位") = fdr1("原职位")
    End If
    Dim num3 As Double = dt4.Compute("max(购股标准)", "工资编号 = '" & nm & "'")
    Dim num4 As Double = dt4.Compute("max(对应购股标准)", "工资编号 = '" & nm & "'")
    Dim fdr2 As DataRow
    If num3 > num4 Then
        dr("购股标准") = num3
        fdr2 = dt4.find("工资编号 = '" & nm & "' and 购股标准 = '" & num3 & "'")
    Else
        dr("购股标准") = num4
        fdr2 = dt4.find("工资编号 = '" & nm & "' and 对应购股标准 = '" & num4 & "'")
    End If
    If fdr2 Is Nothing Then
        dr("技术职务") = "没找到"
        dr("职位") = "没找到"
    Else
       
        dr("技术职务") = fdr2("技术职务等级")
        dr("职位") = fdr2("职位")
        dr("现持股金") = fdr2("现持股金")
        dr("购股标准差异") = dr("原购股标准")-dr("购股标准")
    End If
Next
For Each r As Row In  Tables("职工购股情况差异对比表8月份").Rows
    If r("原职位") = r("职位") Then
        r("职位差异") ="0"
    Else
        r("职位差异") ="1"
    End If
    If r("原技术职务") = r("技术职务") Then
        r("技术职务差异") ="0"
    Else
        r("技术职务差异") ="1"
    End If
Next

MainTable= Tables("职工购股情况差异对比表8月份")

谢谢您，非常感谢

你好，我的界面上显示的表太多，但又不能不引出来，能隐藏吗？如图片所示
此主题相关图片如下：11.png

AfterOpenProject事件

 

Tables("表A").Visible = False

Tables("表B").Visible = False

你好，这里面没找到这个事件
此主题相关图片如下：22.png

在项目属性->事件

 

http://www.foxtable.com/webhelp/scr/1445.htm