主题：表中列之间的数据引用问题求助？

假设表中有1、2、3、4、5、6、7、8、9、10等列，并且10列是日期格式，其中导入的时候只在1、2、3、4、5、6、7、8列导入数据；导入后9列的数据自动等于5列的数据，10列的数据引用6列数据的一部分，这应该是用表达式还是用代码？

例：5列是“申报鉴定工种”，比如是“配电线路工”，9列是“鉴定工种”列，导入后9列和5列数据一样，也是“配电线路工”；

     6列是“鉴定批次”列，比如是“2015年06月”，10列是“鉴定时间”列，导入后10列的数据自动为2015-06-01

 

请版主指教！

 还是用数据列吧。

 

 去编写datacolchanged事件转换和赋值。

 

 如果代码不会写，先去看帮助文档，都是很简单的代码啊

If e.DataRow("评审结果") = "通过" Then
    e.DataRow("鉴定工种") = e.DataRow("申报鉴定工种")
End If

 

谢谢！已搞定其中一项，但发现，导入数据后要点一下“重置列”，“鉴定工种”列才会同步“申报鉴定工种”列；

        另在项还没想转，请版主指教！

 

If e.DataCol.Name = "申报鉴定工种" Then
    e.DataRow("鉴定工种") = e.DataRow("申报鉴定工种")
End If

 

If e.DataCol.Name = "鉴定批次" Then
    Dim str As String = e.DataRow("鉴定批次")
    str = str.replace("年", "-").Replace("月", "-") & "-01"
    Dim d As Date
    If Date.TryParse(str, d) Then
        e.DataRow("鉴定时间") = d
    Else
        e.DataRow("鉴定时间") = Nothing
    End If
End If

谢谢版主！更换事件代码后，原来“鉴定工种”列用点“重置列”能自动填入数据，现在没反应；鉴定时间列也没有反应。

去 申报鉴定工种 和 鉴定批次 点重置列

谢谢版主！给您添麻烦了！现上传实例，导入后，点“重置列”没反应，且“申报性质”列为空，我搞了很久都搞不定，特求教助版主！

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

点击浏览该文件:desktop.rar

If e.DataCol.Name = "申报鉴定工种" Then
    If e.DataRow("评审结果") = "通过" Then
        e.DataRow("鉴定工种") = e.DataRow("申报鉴定工种")
    End If
End If

If e.DataCol.Name = "鉴定批次" Then
    If e.DataRow("评审结果") = "通过" Then
        Dim str As String = e.DataRow("鉴定批次")
        If str.length >= 8 Then
            str = str.SubString(0,4) & "-" & str.SubString(5,2) & "-01"
            Dim d As Date
            If Date.TryParse(str, d) Then
                e.DataRow("鉴定时间") = d
            Else
                e.DataRow("鉴定时间") = Nothing
            End If
        End If
    End If
End If

谢谢版主！现在点“重置列”就可以了。但导入EXECL数据后为什么“申报性质”列总是为空？格式什么的应该没错啊！

Dim Result As DialogResult
Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog
    dlg.Filter = "Excel文件|*.xls"
    dlg.MultiSelect = True '允许选择多个文件
    If dlg.ShowDialog =DialogResult.OK Then
        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("证书编号表").ResumeRedraw()
        Tables("证书编号表").StopRedraw()
        systemready = False
        Dim nms As New Dictionary(Of String, Integer)
        Dim dic As new Dictionary(Of DataRow, Integer)
        Dim ls As new List(Of Integer)
        For c As Integer = 0 To sheet.Cols.Count - 1
            Dim str As String = sheet(1,c).Text.Replace(" ", "")
            If  DataTables("证书编号表").DataCols.Contains(str) Then
                nms.Add(str, c)
            End If
        Next
        For n As Integer = 2 To Sheet.Rows.Count -1
            Dim sfzhm As String = sheet(n,5).Text
            Dim jdpc As String = sheet(n,9).Text
            Dim dr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & sfzhm & "' And 鉴定批次 = '" & jdpc & "'")
            If dr Is Nothing Then
                ls.add(n)
            Else
                dic.Add(dr, n)
            End If
        Next
        For Each key As DataRow In dic.Keys
            For Each m As String In nms.keys
                If DataTables("证书编号表").DataCols(m).IsBoolean Then
                    If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then
                        key(m) = False
                    Else
                        key(m) = True
                    End If
                Else If DataTables("证书编号表").DataCols(m).Expression > "" Then
                    '表达式列
                Else If DataTables("证书编号表").DataCols(m).IsNumeric Then
                    key(m) = val(Sheet(dic(key),nms(m)).Value)
                Else
                    key(m) = Sheet(dic(key),nms(m)).Value
                End If
            Next
        Next
        For Each l As Integer In ls
            Dim ndr As DataRow = DataTables("证书编号表").AddNew
            For Each m As String In nms.keys
                If DataTables("证书编号表").DataCols(m).IsBoolean Then
                    If Sheet(l,nms(m)).Text = "" OrElse Sheet(l,nms(m)).Text = "False" OrElse Sheet(l,nms(m)).Value = 0 Then
                        ndr (m) = False
                    Else
                        ndr (m) = True
                    End If
                Else If DataTables("证书编号表").DataCols(m).Expression > "" Then
                    '表达式列
                Else If DataTables("证书编号表").DataCols(m).IsNumeric Then
                    ndr (m) = val(Sheet(l,nms(m)).Value)
                Else
                    ndr (m) = Sheet(l,nms(m)).Value
                End If
            Next
        Next
        Tables("证书编号表").ResumeRedraw()
        systemready = True
    End If
End If