主题：[求助]窗口如何关联显示相关内容

此主题相关图片如下：7.png

想做个按键一键检查当月所有人员每日在工资表中有无遗漏或重复,少则新建,多则删除多余行,

如何写

If CurrentTable.Current IsNot Nothing Then

    Dim dss As new List (of Date) 

    For Each name As String In DataTables("员工资料表").GetValues("姓名")
        Dim dr As DataRow = DataTables("员工工资表").sqlFind( "姓名 = '" & name & "'")
        If dr Is Nothing Then
            dr = DataTables("表a").AddNew()
            dr("姓名") = name
            dr("日期") = ds

        Else

             If dr.Count > 1 Then

             ????

        End If
    Next
End If

谢谢老师

现在是需要一天检查一次

如何按月来 检查每一天,每人都有一条记录

还差一步,要提取员工资料表里绩效工资为选中的员工名为集合不知到写,

Dim Names As List(Of String) =DataTables("员工资料表").Select( "姓名 = '" & ??? & "' and 绩效工资 = true" )

Dim NAMES As List(Of String) = DataTables("员工资料表").GetValues("姓名","绩效工资 = true")

这样对吗

窗口输入产品名称后,怎么让图片控件显示产品资料表的图片?

Dim tbcp As WinForm.TextBox = e.Form.Controls("TextBoxcp")

If tbcp IsNot Nothing Then
    Dim Filter2 As String
    Filter2 = "[产品名称] = '" &  tbcp.Text & "'"
    If  DataTables("产品资料表").Find(Filter2) Is Nothing Then '如果对应的产品名称没有加载过
        DataTables("产品资料表").AppendLoad(Filter2) '则追载此订单的产品名称
    End If
    Dim dr As DataRow
    dr = DataTables("产品资料表").Find("[产品名称] = '" &  tbcp.text & "'" )
    If dr IsNot Nothing Then
        Dim wz As Integer = Tables("产品资料表").FindRow(dr)
        If wz >= 0 Then
            Tables("产品资料表").Position = wz
        End If
    End If
Else
'????
End If

当无名称输入时

问号处怎么写,图片才能跟随显示空白?