Select Case e.DataCol.name
Case "第一列","第二列","第三列","第四列"
dim s as string
If e.DataRow.isnull("第一列") = false Then
s = s & "第一列:" + e.DataRow("第一列") + "米;"
End If
If e.DataRow.isnull("第二列") = false Then
s = s & "第二列:" + e.DataRow("第二列") + "公里;"
End If
If e.DataRow.isnull("第三列") = false Then
s = s & "第三列:" + e.DataRow("第三列") + "公里;"
End If
If e.DataRow.isnull("第四列") = false Then
s = s & "第四列:" + e.DataRow("第四列") + "公里;"
End If
e.DataRow("第九列") =s
End Select
加好友 
发短信
Post By：2022/6/23 8:37:00 [显示全部帖子]
