主题：数据的导出导入

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

 

 

 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

你好。改过能导入access了。最主要是围径表新增数据1时，没有在“数1列”中体现1值，哪里出问题了？有劳了

 回复3楼，没理解你的意思导入的时候，数0列，数1列，数2列，根据什么计算？怎么得出？

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

 

 怎算啊，怎么不正确？

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

 

 你可以不导入啊

现在不是导入的问题，是我添加记录时，它不会自动算。是代码哪里有问题？有劳

 

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

 

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