以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据的导出导入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56609)
--  作者：myredsun
--  发布时间：2014/9/9 17:45:00
--  数据的导出导入

请教各位老师。我设计了一个软件，在“数据备份导入”快键中的“导入围径表”时，不能导入，大概是主键问题，想用access导出，再合并又出错。如何解决？这样做主要想把其他电脑做的数据合并一起

 

 

[此贴子已经被作者于2014-9-9 20:12:35编辑过]
--  作者：有点甜
--  发布时间：2014/9/9 18:02:00
--  

 datacolchanged代码

 

 

If e.DataCol.Name = "株号" Then
    If e.DataRow.IsNull("株号") Then
        e.DataRow("行株编号") = Nothing
    Else
        e.DataRow("行株编号") = e.DataRow("行号") & "_" & e.DataRow("株号")
    End If
End If

If e.DataCol.Name = "地址编号" Then
    e.DataRow("单位") = e.DataRow("地址编号").substring(7,2)
    e.DataRow("建档时间") = e.DataRow("地址编号").substring(0,4)
    e.DataRow("定植时间") = e.DataRow("地址编号").substring(16,4)
Else If e.DataCol.Name = "数0列" Then
    DataTables("围径表").ReplaceFor("数0列",0, "当年围径 = 0")
Else If e.DataCol.Name = "数1列" Then
    DataTables("围径表").ReplaceFor("数1列",1, "当年围径 = 1")
Else If e.DataCol.Name = "数2列" Then
    DataTables("围径表").ReplaceFor("数2列",2, "当年围径 = 2")
End If
--  作者：myredsun
--  发布时间：2014/9/9 20:02:00
--  

你好。改过能导入access了。最主要是围径表新增数据1时，没有在“数1列”中体现1值，哪里出问题了？有劳了
--  作者：有点甜
--  发布时间：2014/9/9 20:07:00
--  
 回复3楼，没理解你的意思导入的时候，数0列，数1列，数2列，根据什么计算？怎么得出？
--  作者：myredsun
--  发布时间：2014/9/9 20:17:00
--  

根据“当年围径”的数据算的

 
--  作者：有点甜
--  发布时间：2014/9/9 20:18:00
--  
 怎算啊，怎么不正确？
--  作者：myredsun
--  发布时间：2014/9/9 20:20:00
--  

能不能不导入这几列“数0列，数1列，数2列”等它导入后让他自动算

 
--  作者：有点甜
--  发布时间：2014/9/9 20:23:00
--  

 你可以不导入啊
--  作者：myredsun
--  发布时间：2014/9/9 20:31:00
--  
现在不是导入的问题，是我添加记录时，它不会自动算。是代码哪里有问题？有劳
--  作者：有点甜
--  发布时间：2014/9/9 20:33:00
--  
以下是引用myredsun在2014-9-9 20:31:00的发言：
现在不是导入的问题，是我添加记录时，它不会自动算。是代码哪里有问题？有劳

 

汗，理解不了你，问你怎么计算你又不说，不知道你要怎么计算。

 

If e.DataCol.Name = "当年围径" Then
    DataTables("围径表").ReplaceFor("数0列",0, "当年围径 = 0")
    DataTables("围径表").ReplaceFor("数1列",1, "当年围径 = 1")
    DataTables("围径表").ReplaceFor("数2列",2, "当年围径 = 2")
End If