-- 作者:Bin
-- 发布时间:2015/2/13 16:55:00
--
Dim str As String For Each dr As DataRow In DataTables("第一个表").datarows str = dr("Part Description") dim strs as string() = str.split(",") if strs.length >1 then dr("Value") = strs(1) end if MessageBox.Show(dr("Value")) Next DataTables("第一个表").Save
|