主题：数据的导出导入

 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

 回复3楼，没理解你的意思导入的时候，数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

 什么叫做似乎不对？你想说什么？哪个行哪列不对啊