找出此标题对应的列名:
Dim c as String = "产品名称"
For each dc as DataCol In DataTables("xxx").DataCols
If dc.CAption = c then
c = dc.Name
end if
next
MessageBox.show(c)