主题：[求助] 项目打不开

e.Form.Controls("Table2").Table.Filter = Filter
e.Form.Controls("Table2").Table.Sort = "关停责任人,割接情况,回访_结果,预约处理_时间"

= 后面命令现在是指【光缆台帐表】当前行的【_Identify】单元格内容；如果我想改为【光缆台帐表】刚刚新增的那一行的【_Identify】单元格内容。命令该怎么修改？

 

ndr("光缆Identify") = Tables("光缆台帐表").Current("_Identify")

新增行的话，只要你没改变，那肯定就是当前行。

 

或者你可以用一个变量记录新增行

 

vars("新增行") = Tables("光缆台帐表").AddNew

  以下公式该怎么修改？ndr("光缆Identify") = n("_Identify")想实现在【光缆纤芯台帐表】中所新增加的行中，记录【光缆台帐表】中当前新增行的_Identify

 

                              Dim n As DataRow = DataTables("光缆台帐表").AddNew
                                                               
                                n("机房名称") = e.Form.Controls("机房名称").Text
                                n("光缆名称") = e.Form.Controls("光缆名称").Text
                                n("工程项目") = e.Form.Controls("工程项目").Text
                                n("光缆类别") = e.Form.Controls("光缆类别").Text
                                n("光缆对数") = e.Form.Controls("光缆对数").Text
                                n("光缆长度") = e.Form.Controls("光缆长度").Text
                                n("抽头标识") = e.Form.Controls("抽头标识" ).Checked
                                
                                        For i As Integer = 1 To 1
                                        For j1 As Integer = 1 To 8
                                            Dim ndr As DataRow = DataTables("光缆纤芯台帐表").AddNew
                                            ndr("机房名称") = e.Form.Controls("机房名称").Text
                                            ndr("光缆名称") = e.Form.Controls("光缆名称").Text
                                            ndr("光缆Identify") = n("_Identify")
                                            ndr("光缆类别") = e.Form.Controls("光缆类别").Text
                                            ndr("光缆统计") = "-"
                                            ndr("板盘统计") = "-"
                                            ndr("机柜编号") = e.Form.Controls("机柜编号").Text
                                            ndr("ODM框ODF盘") = e.Form.Controls("ODF" & i).Text
                                            ndr("纤芯长度") = e.Form.Controls("光缆长度").Text
                                            ndr("光缆对数") = e.Form.Controls("光缆对数").Text
                                            ndr("板盘端子") = Format(j1, "00")
                                            ndr("纤芯编号") = Format(j1, "00")
                                        Next
                                    Next
                                End If
                                
                               

 

 

Dim n As DataRow = DataTables("光缆台帐表").AddNew
n.save

 

 

ndr("光缆Identify") = n("_Identify")

表的 BeforeSelChange 中写有以下命令

 

If vars("stop") = False AndAlso e.OldRange.RowSel >= 0 Then
    Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
   
    If r IsNot Nothing Then
        If  r.DataRow.RowState <> DataRowState.Unchanged Then
            If e.NewRange.RowSel <> e.OldRange.RowSel Then
                e.Cancel=True
                MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
               
            End If
        End If
    End If
End If

 

此主题相关图片如下：360截图20160329153825458.jpg


此主题相关图片如下：360截图20160329154152485.jpg


此主题相关图片如下：360截图20160329154303406.jpg


此主题相关图片如下：360截图20160329154449639.jpg

上传实例。

或者看看

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82887&skin=0

 

 
此主题相关图片如下：360截图20160330112209470.jpg


此主题相关图片如下：360截图20160330112856031.jpg

 

 我的比对添加按钮命令如下；但是没有成功，该怎么修改？

 

 

如果【BAS端口信息表】的【外层VLAN】列中有内容

那么将【BAS端口信息表】中的[BAS信息]列和[外层VLAN]列 与 【iTellin用户数据表】中[BAS信息]列和[外层VLAN]列 进行对比；如果相同就将【BAS端口信息表】的【归属设备】单元格内容填写到【iTellin用户数据表】的【归属设备】单元格中

 

如果【BAS端口信息表】的【外层VLAN】列中没有内容

那么将【BAS端口信息表】中的[BAS信息]列 与 【iTellin用户数据表】中[BAS信息]列和 进行对比；如果相同就将【BAS端口信息表】的【归属设备】单元格内容填写到【iTellin用户数据表】的【归属设备】单元格中

 

 

For Each r As Row In Tables("BAS端口信息表").Rows
If  r.IsNull("外层VLAN") = Nothing Then  

Dim dr As DataRow = DataTables("iTellin用户数据表").Find("BAS信息 = '" & r("BAS信息") & "' and  外层VLAN = '" & r("外层VLAN") & "' ") ；   

 If dr IsNot Nothing Then       
        dr("归属设备") = r("归属设备")
End If
Else
If  r.IsNull("外层VLAN") Then
    Dim dr As DataRow = DataTables("iTellin用户数据表").Find("BAS信息 = '" & r("BAS信息") & "' ")
    If dr IsNot Nothing Then       
        dr("归属设备") = r("归属设备")
End If
    End If
End If
Next

For Each r As Row In Tables("iTellin用户数据表").Rows
    Dim dr As DataRow = DataTables("BAS端口信息表").Find("BAS信息 + '|' + 外层VLAN  = '" & r("BAS信息") & "|" & r("外层VLAN") & "' ")
    If dr IsNot Nothing Then
        r("归属设备") = dr("归属设备")
    Else
        r("归属设备") = Nothing
    End If
Next