设备端口应用台帐表_PrepareEdit

e.Cancel = True

设备端口应用台帐表_DataColChanged

\'1

If e.DataCol.Name = "设备_板件槽位" Or e.DataCol.Name = "设备_板件端子" Then \'如果更改的是 ***列 和 ***列

    If e.DataRow.IsNull("设备_板件槽位") AndAlso e.DataRow.IsNull("设备_板件端子") Then \'判断 ***列 和 ***列 是否为空

        e.DataRow("设备_槽位端子") = Nothing \'如果为空,则清除 &&&列内容

    Else

        \'否则按以下公式进行处理

        e.DataRow("设备_槽位端子") = e.DataRow("设备_板件槽位") +" -- "+ e.DataRow("设备_板件端子")

    End If

End If

\'2

If e.DataCol.Name = "出线_ODF_ODF盘1" Or e.DataCol.Name = "出线_ODF_ODF端子1" Or e.DataCol.Name = "出线_ODF_ODF盘2" Or e.DataCol.Name = "出线_ODF_ODF端子2" Then \'如果更改的是 ***列 和 ***列

    If e.DataRow.IsNull("出线_ODF_ODF盘1") AndAlso e.DataRow.IsNull("出线_ODF_ODF端子1") AndAlso e.DataRow.IsNull("出线_ODF_ODF盘2") AndAlso e.DataRow.IsNull("出线_ODF_ODF端子2") Then \'判断 ***列 和 ***列 是否为空

        e.DataRow("出线_ODF_ODF盘端子") = Nothing \'如果为空,则清除 &&&列内容

    Else

        \'否则按以下公式进行处理

        e.DataRow("出线_ODF_ODF盘端子") = e.DataRow("出线_ODF_ODF盘1") +" "+ e.DataRow("出线_ODF_ODF端子1") +" / "+ e.DataRow("出线_ODF_ODF盘2") +" "+ e.DataRow("出线_ODF_ODF端子2")

    End If

End If

\'3

If e.DataCol.Name = "出线_DDF_DDF模块" Or e.DataCol.Name = "出线_DDF_DDF2M" Then \'如果更改的是 ***列 和 ***列

    If e.DataRow.IsNull("出线_DDF_DDF模块") AndAlso e.DataRow.IsNull("出线_DDF_DDF2M") Then \'判断 ***列 和 ***列 是否为空

        e.DataRow("出线_DDF_DDF模块2M") = Nothing \'如果为空,则清除 &&&列内容

    Else

        \'否则按以下公式进行处理

        e.DataRow("出线_DDF_DDF模块2M") = e.DataRow("出线_DDF_DDF模块") +" 2M*"+ e.DataRow("出线_DDF_DDF2M")

    End If

End If

\'4

If e.DataCol.Name = "设备_设备厂家" Or e.DataCol.Name = "设备_设备名称" Or e.DataCol.Name = "设备_设备型号" Then \'如果更改的是 ***列 和 ***列

    If e.DataRow.IsNull("设备_设备厂家") AndAlso e.DataRow.IsNull("设备_设备名称") AndAlso e.DataRow.IsNull("设备_设备型号") Then \'判断 ***列 和 ***列 是否为空

        e.DataRow("设备_厂家设备型号") = Nothing \'如果为空,则清除 &&&列内容

    Else

        \'否则按以下公式进行处理

        e.DataRow("设备_厂家设备型号") = e.DataRow("设备_设备厂家") +" "+ e.DataRow("设备_设备名称") +" "+ e.DataRow("设备_设备型号")

    End If

End If

\'5

e.DataRow("操作人员") = _Username

e.DataRow("操作时间") = Date.now

设备端口应用台帐表_BeforeSelRangeChange

If e.Table.RowSel < 0 OrElse e.Table.ColSel < 0 Then

    Return

End If

If e.Table.Current IsNot Nothing Then

    If e.Table.Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过

        e.Cancel = True

        MessageBox.Show("请先保存对当前行的修改", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

    End If

End If

设备端口应用台帐表_Click

If e.Col.Name = "设备_厂家设备型号" Then \'点击某单元格时

    e.Table.AutoSizeRow(e.Row.Index) \'自动调整行宽

End If

设备端口应用台帐表_PositionChanged

If Forms("设备端口应用台帐表主窗口").Opened() \'如果 ***窗口已经打开

Dim t As Table = Tables("设备端口应用台帐表主窗口_Table2") \'某窗口的某控件内容

With Tables("设备端口应用台帐表") \'显示某关联表内容

    If .Current Is Nothing Then

        t.Filter = "False"

    Else

     t.Filter = "业务名称 = \'" & .Current("业务名称") & "\'" \'条件是 ***=***

 End If

End With

End If

设备端口应用台帐表

机房名称() ----> 字符型(100)

业务名称() ----> 字符型(50)

设备_厂家设备型号() ----> 字符型(100)

设备_槽位端子() ----> 字符型(100)

备注() ----> 字符型(16)

操作人员() ----> 字符型(16)

操作时间() ----> 日期型