- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表中列之间的数据引用问题求助？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73368)
-- 发布时间：2015/8/18 10:25:00
-- 表中列之间的数据引用问题求助？
假设表中有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
请版主指教！
-- 发布时间：2015/8/18 10:33:00
--
还是用数据列吧。
去编写datacolchanged事件转换和赋值。
如果代码不会写，先去看帮助文档，都是很简单的代码啊
-- 发布时间：2015/8/18 10:40:00
--
If e.DataRow("评审结果") = "通过" Then
e.DataRow("鉴定工种") = e.DataRow("申报鉴定工种")
End If
谢谢！已搞定其中一项，但发现，导入数据后要点一下“重置列”，“鉴定工种”列才会同步“申报鉴定工种”列；
另在项还没想转，请版主指教！
-- 发布时间：2015/8/18 12:13:00
--
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
-- 发布时间：2015/8/18 13:16:00
--
谢谢版主！更换事件代码后，原来“鉴定工种”列用点“重置列”能自动填入数据，现在没反应；鉴定时间列也没有反应。
-- 发布时间：2015/8/18 14:18:00
--
去 申报鉴定工种 和 鉴定批次 点重置列
-- 发布时间：2015/8/18 15:12:00
--
谢谢版主！给您添麻烦了！现上传实例，导入后，点“重置列”没反应，且“申报性质”列为空，我搞了很久都搞不定，特求教助版主！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:desktop.rar |
-- 发布时间：2015/8/18 15:21:00
--
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
-- 发布时间：2015/8/18 15:26:00
--
谢谢版主！现在点“重置列”就可以了。但导入EXECL数据后为什么“申报性质”列总是为空？格式什么的应该没错啊！
-- 发布时间：2015/8/18 15:42:00
--
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